Hello Dear community,
I use following VBA to copy paste data from excel to ppt.
It copy range from each Worksheet.
Can anyone help me to make a little change, so instead of each WS it can copy from range.
What I want to achieve, something like:
Dim k as range
k = 18
For each range Range("A11:I" & k)
next
k + 10
Full code
Please Login or Register to view this content.
Please Login or Register to view this content.
Do you want to take a picture of 8 rows (11 - 18) and 9 columns (A - I) (=Range("A11:I18") and place this in PowerPoint.
Now do the same for a new range. How many rows down from 11 is this start of the new range? 10 cells? Range("A21:I28")?
How many times do you want to do this or at which row number do you want to quit? Last used row?
Are there empty row(s) between these blocks of data?
Experience trumps academics every day of the week and twice on Sunday.
Hello jolivanes, thanks for reply.Originally Posted by jolivanes
Answer to all your question is "yes"
Right now in sheet. I have 54 ranges.
'If you want to store the pictures on the sheet and retrieve laterPlease Login or Register to view this content.
Please Login or Register to view this content.
Thank you very for reply. I tried 1st option. But it only copy and paste whole range at once. ( as single picture )'If you want to store the pictures on the sheet and retrieve laterPlease Login or Register to view this content.
Please Login or Register to view this content.
Any idea what am I doing wrong?
Please Login or Register to view this content.
Last edited by Akbarov; 08-04-2022 at 02:08 AM.
Don't create non needed clutter by quoting.
You said that there were empty rows between ranges to be copied. If the rows are not empty the code as it stands will not work.
You might have non printable characters in these rows.
If there are no empty rows, code has to be changed.
Let us know what it is.
Attaching your workbook would be the best.
I tried with empty rows it works perfectly fine. But I have empty cells in some rows. Can there be different option?
Try so.
If it does not work, attach your workbook, cleaned of any personal data like names, email addresses etc.Please Login or Register to view this content.
Hello jolivanes,
Can you give me a little explanation about your last code?
I want to make it loop to the right , instead of down, but I do something wrong I think.
Please Login or Register to view this content.
If you want to loop to the right, you have to give us some range examples.Please Login or Register to view this content.
For instance:
Go to range A1, resize 5 rows and 3 columns, take picture and paste somewhere in relation to A1.
Move 5 cells to the right and resize same as before, take picture and paste somewhere in relation to this last cell.
Move another 5 cells to the right again, resize etc etc.
Give us a clear example to work with.
Thanks for answer.
So range is simple: 1Row and 10 columns. F70:O70 then P70:Y70 etc..
Is that possible to not paste pictures to worksheet? or is it important. It makes workbook so messy.
Where do you want the pictures stored or pasted?
You can store the pictures in a temporary folder also if you want.
I don't know anything about transferring to Powerpoint but you can transfer the range directly to Powerpoint I imagine. I mentioned that in Post #4.
BTW, you said that it makes the sheet messy but I was under the impression that the pictures would be transferred into Powerpoint and later deleted from the sheet.
Loop solved. Only problem left is mess.. each time I run code it adds 50 pictures to worksheet each time..
Last edited by Akbarov; 08-05-2022 at 10:39 PM.
Been waiting on an answer for Post #12.
But if you want to just delete the named pictures after copying to PowerPoint, this should do that.
Please Login or Register to view this content.
This code will do what I want.
But I made some changes in code.
To copy multiple pictures at once.. It copy ranges to worksheet, but transfers only second range to PPT.
May be you can give me some suggestion?..
Please Login or Register to view this content.
See what happens if you move the "k = k + 1" down to just before "Next i"
Tried, still result is the same. It copy-paste second range. Can I name both ranges with different name? like myShape , myShape1 ?
They have to have different names.
I get error: Unable to get pictures property in worksheet class.
It happened after I tried to give each element different names
Please Login or Register to view this content.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks