If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
|
Thread Tools | Display Modes |
#11
|
|||
|
|||
Inserting a Picture using Cell as picture name.
Bill Manville;729438 Wrote: The-jackal wrote:-- EDIT: Ok I deleted that line and it seems to be working fine now. Thanks again for your help.- - Having deleted that line you will end up with every picture you have asked for sitting on top of the others. That's why the line was there, to delete the last one when it adds a new one. Put the line back. And delete all the pictures except the most recent one. - Ok just 1 more thing. The picture is really small. Same width as A column. Can I set it to make the picture width 4 columns eg A16 to D16 - You can make the picture whatever size you like. Just set its Width and Height properties - either in the line that adds it or subsequently. Bill Manville MVP - Microsoft Excel, Oxford, England No email replies please - respond to newsgroup Ok been using this but was wondering if I can get it to display the picture at say 20% of its original size. Thanks again for all the help. -- the-jackal |
#12
|
|||
|
|||
Inserting a Picture using Cell as picture name.
The-jackal wrote:
Ok been using this but was wondering if I can get it to display the picture at say 20% of its original size. With Me.Shapes.AddPicture(stFile, True, True, Range("A16").Left, _ Range("A16").Top, Range("A16").Width, Range("A16").Width * 3 / 4) .Name = "NewPic" ' the next 3 lines are new: .LockAspectRatio = False .ScaleHeight 0.2, True .ScaleWidth 0.2, True End With Bill Manville MVP - Microsoft Excel, Oxford, England No email replies please - respond to newsgroup |
#13
|
|||
|
|||
Inserting a Picture using Cell as picture name.
Bill Manville;751350 Wrote: The-jackal wrote:- Ok been using this but was wondering if I can get it to display the picture at say 20% of its original size. - With Me.Shapes.AddPicture(stFile, True, True, Range("A16").Left, _ Range("A16").Top, Range("A16").Width, Range("A16").Width * 3 / 4) .Name = "NewPic" ' the next 3 lines are new: .LockAspectRatio = False .ScaleHeight 0.2, True .ScaleWidth 0.2, True End With Bill Manville MVP - Microsoft Excel, Oxford, England No email replies please - respond to newsgroup Worked great. Thanks again. -- the-jackal |
|
Thread Tools | |
Display Modes | |
|
|