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