Hi this is my code
1st Case
I try to import very long excel range, into a powerpoint slide (kindda doing automating stuff).
And i noticed that this "Copypicture" can only capture the range fom columnA into columnJ maximum, if its longer than it will be cutted just until columnJ.
how can i really capture this "Very Wide" range of excel?
'------------------------------------------------------------------------------------------------------------------
wbEXL06.Activate
wbEXL06.RefreshAll
With prsPPT.Slides.Add(13, ppLayoutChart)
With .Shapes(1).TextFrame
.TextRange.Text = "Dodo Groceries Yearly Review 2006"
.HorizontalAnchor = msoAnchorCenter
.VerticalAnchor = msoAnchorMiddle
End With
End With
wsEXL10.Range("A1", "AD15").CopyPicture
With prsPPT.Slides(13).Shapes.Paste
.ScaleHeight 0.8, msoTrue, msoScaleFromMiddle
.ScaleWidth 0.8, msoTrue, msoScaleFromMiddle
.Align msoAlignMiddles, msoTrue
.Align msoAlignCenters, msoCTrue
End With
'------------------------------------------------------------------------------------------------------------------
2nd Case,
Ive also tried the code that I will write below here, but the problem is i do not know how to scale the result in this ".PasteSpecial ppPasteOLEObject", This method capture the range I want, but the appearance of the pasting result picture is not as good as the first method, anyway,
What is the "Scaling" code (for example by factor 1.5)i should inputted by this code?
"prsPPT.Slides(11).Shapes.PasteSpecial ppPasteOLEObject"
'------------------------------------------------------------------------------------------------------------------
wbEXL05.Activate
wbEXL05.RefreshAll
wsEXL08.Range("A1", "AD26").Copy
With prsPPT.Slides.Add(11, ppLayoutChart)
With .Shapes(1).TextFrame
.TextRange.Text = "Dodo Groceries Yearly Review 2006"
.HorizontalAnchor = msoAnchorCenter
.VerticalAnchor = msoAnchorMiddle
End With
End With
prsPPT.Slides(11).Shapes.PasteSpecial ppPasteOLEObject
'-------------------------------------------------------------------------------------------------------------------
Waiting for your input guys..
Hopefully you can help me with the first case, but 2nd case is already sufficient.
B Waiting..
Thanx.
MW