View Single Post
Old 01-06-2010, 11:28
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811

Group all thumbs on page?
This will, and set size too.
I think this is what you meant.


Private Sub myAdjust() 'added this whole sub
    Dim s As Shape
    ActiveDocument.ReferencePoint = cdrTopLeft
    Set s = ActivePage.Shapes.All.Group
    s.SetPosition 0, ActivePage.SizeHeight 'adjust position here.
    s.SetSize , 5 'change size here, leave one value blank for proportional size
End Sub
Reply With Quote