 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / General PowerPoint Questions / June 2006Vba to resize all images in slideshwo ?
Hi, how can I resize all images in a slideset ( have 100 of them to resize and reposition). Manually very fastidious, so looking for somevba code to automate it ! TIA all This should do it. Obviously you will need to change the size settings (.width & .height) to suit and also the position (.top & .left) 'code starts Sub picsize() Dim oSld As Slide Dim oShp As Shape For Each oSld In ActivePresentation.Slides For Each oShp In oSld.Shapes If oShp.Type = msoPicture Then With oShp .Width = 100 .Height = 100 .Top = 100 .Left = 100 End With End If Next oShp Next oSld End Sub 'code ends  Signature----------------------------------------- Did that answer the question / help? _____________________________ John Wilson Microsoft Certified Office Specialist > Hi, > [quoted text clipped - 4 lines] > > TIA all Many thanks ! Will try it illico ! > This should do it. Obviously you will need to change the size settings > (.width & .height) to suit and also the position (.top & .left) [quoted text clipped - 29 lines] >> >> TIA all Hi John, it worked fine. Have modified the code a little so I can resize picture on first slide to correct size-position, then run the code, to adjust all others to same valudes as first slide ones. Thanks a lot !!! Phil > This should do it. Obviously you will need to change the size settings > (.width & .height) to suit and also the position (.top & .left) [quoted text clipped - 29 lines] >> >> TIA all Glad to be of help, reading the size and position af a sample pic sounds like a good move! _____________________________ John Wilson Microsoft Certified Office Specialist > Hi John, > [quoted text clipped - 39 lines] > >> > >> TIA all Thanks. Have tested and it works fine > Glad to be of help, reading the size and position af a sample pic sounds > like [quoted text clipped - 50 lines] >> >> >> >> TIA all |
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.