473,394 Members | 1,813 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,394 software developers and data experts.

Copypicture very long range of excel..

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
Jan 19 '07 #1
0 1108

Sign in to post your reply or Sign up for a free account.

Similar topics

3
by: zxo102 | last post by:
Hi there, I need your help for python <--> excel. I want to paste selected cells (range) to different location on the same sheet in Excel through python. I have tried it for a while but could not...
4
by: IMS.Rushikesh | last post by:
Hi All, I am trying to execute below code but it gives me an COMException ///// Code Start //// public string GetName(Excel.Range range) { try { if (range.Name != null)
2
by: George | last post by:
Is there a fast way to transfer an Excel range to an array? Example: Excel range is E2:E300 Dim person() as string Thanks, George
3
by: George | last post by:
Sub ExcelToListBox() Dim xRange As Object Dim ary Dim xValue As String xRange = oXL.Range("A1:A9") 'has letters A-H ary = xRange.value xValue = ary(3, 1) 'xValue = C...
0
by: shantanu | last post by:
I am trying to convert a macro code to c# that will copy the values of a column and paste to anather through paste special. Everything is working fine but the transpose meathod to paste the column...
1
by: ISATownsME | last post by:
HELLO world, this is my first post and heres my problem. I have an excel spreadsheet with 22 columns, and undefined amount of rows. I need vb.net to read the data from excel. Then use that data to...
1
MitchR
by: MitchR | last post by:
Good Morning Folks; I have a question that is pretty far fetched but here goes nothing... I am looking to find a way to insert a macro into an Excel command button located in an Access VBA...
3
by: geotecman | last post by:
Hello, I use the below code I got from the internet to update my access from excel. Is there a way for the program to check and see if my project number which is in range("B2:B5600") exists in the...
4
by: omono84 | last post by:
I know that this should be rather simple but i seem to be missing a step to get it to work. and have been unable to find a solution on the net. The aim is that I click on the open button to find...
0
by: ryjfgjl | last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
0
by: emmanuelkatto | last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel
1
by: nemocccc | last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
1
by: Sonnysonu | last post by:
This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...
0
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
0
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
0
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...
0
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...
0
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.