Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 01-07-2020, 07:17 AM
you you is offline Paste an image in to a set sized shape/container Windows 7 64bit Paste an image in to a set sized shape/container Office 2010 64bit
Novice
Paste an image in to a set sized shape/container
 
Join Date: Aug 2014
Posts: 2
you is on a distinguished road
Default 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.
Reply With Quote
  #2  
Old 01-08-2020, 09:32 PM
Guessed's Avatar
Guessed Guessed is offline Paste an image in to a set sized shape/container Windows 10 Paste an image in to a set sized shape/container Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,932
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

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
Reply With Quote
Reply

Thread Tools
Display Modes


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
Paste an image in to a set sized shape/container how to paste text as shape bsapaka Excel 1 05-01-2014 06:53 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 01:56 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft