Is there anyway to specify the left and top distances for a ShapeRange object using vba?
For instance, I can specify the following using a recorded macro:
Selection.ShapeRange.Height = 45.07
Selection.ShapeRange.Width = 413.01
Selection.ShapeRange.IncrementLeft -8.49
Selection.ShapeRange.IncrementTop -0.31
But can you specify the actual left and top values (not just increment values)? This is for a object located on a chart. The full code I am using to relocate the object is as such:
ActiveSheet.ChartObjects("Chart 11").Activate
ActiveChart.ChartArea.Select
ActiveChart.Shapes("Group 23").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 45.07
Selection.ShapeRange.Width = 413.01
Selection.ShapeRange.IncrementLeft -8.49
Selection.ShapeRange.IncrementTop -0.31
Thanks,
Corey D.
For instance, I can specify the following using a recorded macro:
Selection.ShapeRange.Height = 45.07
Selection.ShapeRange.Width = 413.01
Selection.ShapeRange.IncrementLeft -8.49
Selection.ShapeRange.IncrementTop -0.31
But can you specify the actual left and top values (not just increment values)? This is for a object located on a chart. The full code I am using to relocate the object is as such:
ActiveSheet.ChartObjects("Chart 11").Activate
ActiveChart.ChartArea.Select
ActiveChart.Shapes("Group 23").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 45.07
Selection.ShapeRange.Width = 413.01
Selection.ShapeRange.IncrementLeft -8.49
Selection.ShapeRange.IncrementTop -0.31
Thanks,
Corey D.