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

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

-John

Code:
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