kerrywayne
New Member
- Joined
- Jul 21, 2023
- Messages
- 10
- Office Version
- 2003 or older
- Platform
- Windows
Can someone explain to me why the below process is not possible using vba code without using the bottom sequence an saving an image to my HD?
Before I get response that a list box is easier, this is just suppose to be a quick snap shot of menu items available that will change from use to use based on user loaded database. List boxes are not formattable enough to accomplish my goal. It would require very many listboxes, b/c the menu options are heavily categorized, besides the fact that listboxes have very few formatting options. An image of a pre(well)formatted worksheet range works perfectly.
1. Copy Cells with highlight and right mouse click <copy>
2. Activate the Userform image by clicking on it
3. Right Click, Select Properties.
4. Click on Picture property of image
5. Ctrl +V on keyboard (Shouldn't every <ctrl +v> be related to a <.paste> functionality?)
BOTTOM SEQUENCE OF CODE
Worksheets("Sheet3").Range("A1:L30").Copy
ActiveSheet.Pictures.Paste(link:=False).Select
ActiveShape = ActiveSheet.Shapes(ActiveWindow.Selection.Name)
...(the rest of code to save picture to HD and then download it back to the userform image per Stephen Bullen's code)
Thanks
Kerry
Before I get response that a list box is easier, this is just suppose to be a quick snap shot of menu items available that will change from use to use based on user loaded database. List boxes are not formattable enough to accomplish my goal. It would require very many listboxes, b/c the menu options are heavily categorized, besides the fact that listboxes have very few formatting options. An image of a pre(well)formatted worksheet range works perfectly.
1. Copy Cells with highlight and right mouse click <copy>
2. Activate the Userform image by clicking on it
3. Right Click, Select Properties.
4. Click on Picture property of image
5. Ctrl +V on keyboard (Shouldn't every <ctrl +v> be related to a <.paste> functionality?)
BOTTOM SEQUENCE OF CODE
Worksheets("Sheet3").Range("A1:L30").Copy
ActiveSheet.Pictures.Paste(link:=False).Select
ActiveShape = ActiveSheet.Shapes(ActiveWindow.Selection.Name)
...(the rest of code to save picture to HD and then download it back to the userform image per Stephen Bullen's code)
Thanks
Kerry
Last edited: