#1
|
|||
|
|||
Paste an image in to a set sized shape/container
I paste images in to visio a fair bit for work projects and they're always way too big. Importing and resizing dozens of pics can get a bit tedious. They're always resized to the same resolution and position in a stack one below the other with text to the right. Is there a way I can paste the image directly in to some kind of container or shape in a template so the image automatically resizes and is in the correct position? eg, copy image from another app, select visio shape, paste in to shape, repeat. Failing that I guess a macro would work for resizing.
|
#2
|
||||
|
||||
I don't think there is a container you can paste into so I would be looking at the code to resize the graphic after the paste. I also haven't worked out the code to resample the bitmaps after resizing but the resizing could be done with...
Code:
Sub ResizeShapes() Dim aShp As Shape For Each aShp In ActiveWindow.Selection aShp.CellsSRC(visSectionObject, visRowXFormOut, visXFormWidth).FormulaU = "100 mm" aShp.CellsSRC(visSectionObject, visRowXFormOut, visXFormHeight).FormulaU = "50 mm" Next aShp End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Show image (preview) on a shape | Pock3 | Visio | 0 | 02-06-2019 02:59 AM |
Copy & Paste Shapes with Motion Paths to different sized slides | ialpawsv | PowerPoint | 5 | 06-03-2018 11:13 PM |
Adding a oval shape in word and pasting image into it from clipboard | choper | Word VBA | 5 | 06-15-2015 01:04 AM |
Copied shape/text box pastes as an image in Word | spectator | Word | 0 | 06-04-2014 08:45 AM |
how to paste text as shape | bsapaka | Excel | 1 | 05-01-2014 06:53 AM |