Making Fonts Behave When Pasting Data/Graphs As Picture From Excel

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top