Thread: [Solved] Resize and align
View Single Post
 
Old 11-08-2012, 09:23 AM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2010 32bit
Programmer
  
Join Date: Nov 2008
Location: UK
Posts: 1,914
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default
Maybe just move the group left by half its width?? That is make this change:

Code:
'group
ActiveWindow.Selection.ShapeRange.Group.Select
ActiveWindow.Selection.ShapeRange.Left = cm2Points(7) - ActiveWindow.Selection.ShapeRange.Width / 2
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote