Trying to resize pictures in excel all to the same size
Hi All,
bit of a newbie to Excel, apologies if this has been asked before, tried searching but was not able to find an answer to it on the site. I have a bunch of pictures in one column (column c), I am trying to resize them all exactly to a height of 0.98 and width of 1.98. I tried selecting all of them then resizing in the size ribbon under picture tools however some of the pictures have the lock aspect ratio and relative to original picture size options ticked in size and properties. many thanks if you can help |
Trying to resize pictures in excel all to the same size
Hi,
Am Wed, 25 Sep 2013 11:57:22 +0100 schrieb Nabeel K: bit of a newbie to Excel, apologies if this has been asked before, tried searching but was not able to find an answer to it on the site. I have a bunch of pictures in one column (column c), I am trying to resize them all exactly to a height of 0.98 and width of 1.98. I tried selecting all of them then resizing in the size ribbon under picture tools however some of the pictures have the lock aspect ratio and relative to original picture size options ticked in size and properties. many thanks if you can help try: Sub Pictures() Dim shp As Shape For Each shp In ActiveSheet.Shapes With shp .Height = Application.CentimetersToPoints(0.98) .Width = Application.CentimetersToPoints(1.98) End With Next End Sub If your standard for measurements are inches change it to: InchesToPoints Regards Claus B. -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2 |
Hi Claus,
appreciative for your prompt response,thank you. Still facing a problem tho with some of the pictures which have the lock aspect ratio and relative to original picture size option ticked. Either width or height have changed but not both. Quote:
|
Trying to resize pictures in excel all to the same size
Hi,
Am Wed, 25 Sep 2013 14:19:11 +0100 schrieb Nabeel K: appreciative for your prompt response,thank you. Still facing a problem tho with some of the pictures which have the lock aspect ratio and relative to original picture size option ticked. Either width or height have changed but not both. try: Sub Pictures2() Dim sr ActiveSheet.Shapes.SelectAll Set sr = Selection.ShapeRange With sr .LockAspectRatio = False .Height = Application.CentimetersToPoints(0.98) .Width = Application.CentimetersToPoints(1.98) End With End Sub Regards Claus B. -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2 |
worked perfect! thanks so much
Quote:
|
All times are GMT +1. The time now is 07:42 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com