L
linux_loco
Hello;
Using Excel VBA, I am creating and manipulating some charts and data in
Excel, which ultimately end up in PPT. When I paste the data as picture into
PPT, it comes over quite small, and so I resize it using code like:
'Select Chart Picture
aPPApp.ActiveWindow.Selection.SlideRange.Shapes("Picture 5").Select
'Make this chart slightly smaller, wider, then center
With aPPApp.ActiveWindow.Selection.ShapeRange
.ScaleWidth 1.1, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.85, msoFalse, msoScaleFromBottomRight
.Align msoAlignCenters, True
.IncrementTop 10#
End With
'Select Data Range
aPPApp.ActiveWindow.Selection.SlideRange.Shapes("Picture 4").Select
'Place a 4.5 px. border around data range
With aPPApp.ActiveWindow.Selection.ShapeRange
.Line.Style = msoLineThickThin
.Line.Weight = 4.5
.Line.Visible = msoTrue
.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.6, msoFalse, msoScaleFromBottomRight
.IncrementTop 66#
.Align msoAlignCenters, True
End With
This works nicely, and I have been able to match the width of the data range
pictures to the width of the graph pictures. However, after the resize, the
text in the data range pictures has been tweaked a bit, with the letter
spacing being inconsistent. I'd like to make this as professional as
possible, and so i am hoping that someone here can help me manipulate these
pictures in a way that preserves proper text formatting, if that is possible.
Any assistance greatly appreciated!
Thanks
Using Excel VBA, I am creating and manipulating some charts and data in
Excel, which ultimately end up in PPT. When I paste the data as picture into
PPT, it comes over quite small, and so I resize it using code like:
'Select Chart Picture
aPPApp.ActiveWindow.Selection.SlideRange.Shapes("Picture 5").Select
'Make this chart slightly smaller, wider, then center
With aPPApp.ActiveWindow.Selection.ShapeRange
.ScaleWidth 1.1, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.85, msoFalse, msoScaleFromBottomRight
.Align msoAlignCenters, True
.IncrementTop 10#
End With
'Select Data Range
aPPApp.ActiveWindow.Selection.SlideRange.Shapes("Picture 4").Select
'Place a 4.5 px. border around data range
With aPPApp.ActiveWindow.Selection.ShapeRange
.Line.Style = msoLineThickThin
.Line.Weight = 4.5
.Line.Visible = msoTrue
.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.6, msoFalse, msoScaleFromBottomRight
.IncrementTop 66#
.Align msoAlignCenters, True
End With
This works nicely, and I have been able to match the width of the data range
pictures to the width of the graph pictures. However, after the resize, the
text in the data range pictures has been tweaked a bit, with the letter
spacing being inconsistent. I'd like to make this as professional as
possible, and so i am hoping that someone here can help me manipulate these
pictures in a way that preserves proper text formatting, if that is possible.
Any assistance greatly appreciated!
Thanks