I have a very basic - borderline idiotic - question regarding Powerpoint (2007) and it's this :
How can I change the actual measurement unit of (say) an image? Once I right-click on an image and select "Size and position" the elements' unit is in cm (possibly because my default setting is metric). How can I change that to display "px" ?
The units come from your choice in the Control Panel "Regional and Language Options" and your choices are "US" and "Metric". "Pixels" is not an option.
You can create your own macro to do what you want (and add a button to your QuickAccess Toolbar for easy access).
Something like this (Select an object, then run macro (or click button)):
Sub Nudge() Dim strChoice As String Dim strPrompt As String Dim strDistance As String With ActiveWindow.Selection.ShapeRange strPrompt = "Object currently at (top, Left): (" & .Left & "," & .Top & ")." strChoice = InputBox(strPrompt & " H for Horizontal, V for Vertical") If strChoice = "H" Or strChoice = "h" Then strDistance = InputBox("Move how many pixels horizontally?") .Left = .Left + CInt(strDistance) ElseIf strChoice = "V" Or strChoice = "v" Then strDistance = InputBox("Move how many pixels vertically?") .Top = .Top + CInt(strDistance) End If End With End Sub
2 Replies
The units come from your choice in the Control Panel "Regional and Language Options" and your choices are "US" and "Metric". "Pixels" is not an option.
You can create your own macro to do what you want (and add a button to your QuickAccess Toolbar for easy access).
Something like this (Select an object, then run macro (or click button)):
Sub Nudge()
Dim strChoice As String
Dim strPrompt As String
Dim strDistance As String
With ActiveWindow.Selection.ShapeRange
strPrompt = "Object currently at (top, Left): (" & .Left & "," & .Top & ")."
strChoice = InputBox(strPrompt & " H for Horizontal, V for Vertical")
If strChoice = "H" Or strChoice = "h" Then
strDistance = InputBox("Move how many pixels horizontally?")
.Left = .Left + CInt(strDistance)
ElseIf strChoice = "V" Or strChoice = "v" Then
strDistance = InputBox("Move how many pixels vertically?")
.Top = .Top + CInt(strDistance)
End If
End With
End Sub
Good luck,
Paul K.
@Paul : thanks, the makro is really useful!
@Microsoft : Oh dear...
This discussion is closed. You can start a new discussion or contact Articulate Support.