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 "Copypictur e" 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.Activat e
wbEXL06.Refresh All
With prsPPT.Slides.A dd(13, ppLayoutChart)
With .Shapes(1).Text Frame
.TextRange.Text = "Dodo Groceries Yearly Review 2006"
.HorizontalAnch or = msoAnchorCenter
.VerticalAnchor = msoAnchorMiddle
End With
End With
wsEXL10.Range(" A1", "AD15").CopyPic ture
With prsPPT.Slides(1 3).Shapes.Paste
.ScaleHeight 0.8, msoTrue, msoScaleFromMid dle
.ScaleWidth 0.8, msoTrue, msoScaleFromMid dle
.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 ".PasteSpec ial ppPasteOLEObjec t", 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.Past eSpecial ppPasteOLEObjec t"
'------------------------------------------------------------------------------------------------------------------
wbEXL05.Activat e
wbEXL05.Refresh All
wsEXL08.Range(" A1", "AD26").Cop y
With prsPPT.Slides.A dd(11, ppLayoutChart)
With .Shapes(1).Text Frame
.TextRange.Text = "Dodo Groceries Yearly Review 2006"
.HorizontalAnch or = msoAnchorCenter
.VerticalAnchor = msoAnchorMiddle
End With
End With
prsPPT.Slides(1 1).Shapes.Paste Special ppPasteOLEObjec t
'-------------------------------------------------------------------------------------------------------------------
Waiting for your input guys..
Hopefully you can help me with the first case, but 2nd case is already sufficient.
B Waiting..
Thanx.
MW