473,657 Members | 2,554 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

Copypicture very long range of excel..

8 New Member
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
Jan 19 '07 #1
0 1123

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

Similar topics

3
28495
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 figure it out. Here is my sample code: import win32com.client xl=win32com.client.Dispatch("Excel.Application") xl.Visible=1 wb = xl.Workbooks.Add( )
4
8454
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
24455
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
8892
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 Me.ListBoxPerson.Items.AddRange(ary)
0
7270
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 value as row value is not working. Can someone kindly look into the code, if i am missing something. C# Code ------------ private void ManipulateXLS() {
1
1474
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 populate an existing access database table that has been added to visual studio. I've tried multiple approaches and have come to a standstill. this was approach 1 Imports System.Data.OleDb Imports System.Data.SqlClient Imports Excel =...
1
6190
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 generated Excel spreadsheet from an Access Module. I can create the spreadsheet, button, and I have the macro to insert into command button. But I am not sure how to assign the macro to the button in the access module. Set xlApp =...
3
2636
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 database first. If yes then update the fields. If not then add the project number and the other fields. I thanks you in advance. 'The below code send the last row from excel to access Sub ADOFromExcelToAccess() ' exports data from the active...
4
4032
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 and open an unknown workbook that contains the data that I need to imput into my current workbook, once the unknown workbook is opened it should automatically select my range (number of columns known, but number of rows unknown- the number of rows...
0
8392
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, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look ! Part I. Meaning of...
0
8730
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...
1
8503
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 Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
0
8605
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 protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
0
5632
by: conductexam | last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...
0
4151
by: TSSRALBI | last post by:
Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
0
4301
by: adsilva | last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
1
2726
by: 6302768590 | last post by:
Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
2
1607
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

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.