Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Old September 25th 13, 11:57 AM
Junior Member
 
First recorded activity by ExcelBanter: Sep 2013
Posts: 5
Default 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

  #2   Report Post  
Old September 25th 13, 01:08 PM posted to microsoft.public.excel.newusers
external usenet poster
 
First recorded activity by ExcelBanter: Apr 2011
Posts: 3,607
Default 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
  #3   Report Post  
Old September 25th 13, 02:19 PM
Junior Member
 
First recorded activity by ExcelBanter: Sep 2013
Posts: 5
Default

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:
Originally Posted by Claus Busch View Post
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
  #4   Report Post  
Old September 25th 13, 05:37 PM posted to microsoft.public.excel.newusers
external usenet poster
 
First recorded activity by ExcelBanter: Apr 2011
Posts: 3,607
Default 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
  #5   Report Post  
Old September 26th 13, 02:48 PM
Junior Member
 
First recorded activity by ExcelBanter: Sep 2013
Posts: 5
Default

worked perfect! thanks so much

Quote:
Originally Posted by Claus Busch View Post
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


Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Inserting pictures into Excel Sheet at a particular size ToferKing Excel Discussion (Misc queries) 5 February 25th 10 07:03 PM
How to auto size jpeg files into excel when import/insert pictures Ken C[_2_] New Users to Excel 3 September 25th 09 02:17 PM
Dictate physical size of pictures inserting into Excel? D Harman Excel Discussion (Misc queries) 0 June 15th 06 03:53 PM
i want to import all pictures into excel at the same size without. Laura Taylor Setting up and Configuration of Excel 0 December 21st 04 11:07 AM
Resize and resample pictures inserted Bert[_3_] Excel Programming 0 November 7th 04 07:37 PM


All times are GMT +1. The time now is 12:06 AM.

Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Copyright 2004-2018 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Copyright © 2017