Microsoft Office Forums - View Single Post - URGENT!!! Powerpoint Image Formatting and Positioning Macro

JohnWilson · 12-20-2011, 09:45 AM

OK

PowerPoint works in points in the object model so you need a user defined function to convert your figures to points.

Code:

Sub fix_Pic()
If ActiveWindow.Selection.Type <> ppSelectionShapes Then Exit Sub
With ActiveWindow.Selection.ShapeRange(1)
.Left = cm2Points(9)
.Top = cm2Points(3.46)
.LockAspectRatio = False
.Width = cm2Points(16.09)
.Height = cm2Points(15.5)
.Line.ForeColor.RGB = vbBlack
.Line.Weight = 2 'change weight here
End With
End Sub
Function cm2Points(inVal As Single)
cm2Points = inVal * 28.346
End Function