Trying to resize pictures in excel all to the same size

Discussion in 'Excel Beginners' started by Nabeel K, Sep 25, 2013.

  1. Nabeel K

    Nabeel K Guest

    Hi All,

    bit of a newbie to Excel, apologies if this has been asked before, trie
    searching but was not able to find an answer to it on the site. I have
    bunch of pictures in one column (column c), I am trying to resize the
    all exactly to a height of 0.98 and width of 1.98. I tried selecting al
    of them then resizing in the size ribbon under picture tools howeve
    some of the pictures have the lock aspect ratio and relative to origina
    picture size options ticked in size and properties. many thanks if yo
    can hel


    --
    Nabeel K
     
    Nabeel K, Sep 25, 2013
    #1
    1. Advertisements

  2. Nabeel K

    Claus Busch Guest

    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
     
    Claus Busch, Sep 25, 2013
    #2
    1. Advertisements

  3. Nabeel K

    Nabeel K Guest

    Hi Claus,

    appreciative for your prompt response,thank you. Still facing a proble
    tho with some of the pictures which have the lock aspect ratio an
    relative to original picture size option ticked. Either width or heigh
    have changed but not both.

    Claus Busch;1614036 Wrote:
    > 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 hav

    > a
    > > bunch of pictures in one column (column c), I am trying to resiz

    > them
    > > all exactly to a height of 0.98 and width of 1.98. I tried selectin

    > all
    > > of them then resizing in the size ribbon under picture tools however
    > > some of the pictures have the lock aspect ratio and relative t

    > original
    > > picture size options ticked in size and properties. many thanks i

    > 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 SP



    --
    Nabeel K
     
    Nabeel K, Sep 25, 2013
    #3
  4. Nabeel K

    Claus Busch Guest

    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
     
    Claus Busch, Sep 25, 2013
    #4
  5. Nabeel K

    Nabeel K Guest

    worked perfect! thanks so much

    Claus Busch;1614041 Wrote:
    > Hi,
    >
    > Am Wed, 25 Sep 2013 14:19:11 +0100 schrieb Nabeel K:
    > -
    > > appreciative for your prompt response,thank you. Still facing

    > problem
    > > tho with some of the pictures which have the lock aspect ratio and
    > > relative to original picture size option ticked. Either width o

    > 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 SP



    --
    Nabeel K
     
    Nabeel K, Sep 26, 2013
    #5
    1. Advertisements

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Tim
    Replies:
    1
    Views:
    128
    Wouter HM
    Feb 16, 2004
  2. Jay
    Replies:
    12
    Views:
    154
  3. Rightmer

    How do I make all columns resize to

    Rightmer, Apr 13, 2004, in forum: Excel Beginners
    Replies:
    2
    Views:
    70
    Rightmer
    Apr 13, 2004
  4. Palin

    How do I resize a complex Excel template?

    Palin, Sep 25, 2006, in forum: Excel Beginners
    Replies:
    0
    Views:
    77
    Palin
    Sep 25, 2006
  5. Replies:
    1
    Views:
    70
    Bob Umlas
    Mar 10, 2008
  6. edithdelaparra

    Is Excel 2007 the same software in all Office packages?

    edithdelaparra, Mar 20, 2008, in forum: Excel Beginners
    Replies:
    1
    Views:
    95
    Gordon
    Mar 21, 2008
  7. Ken C
    Replies:
    3
    Views:
    85
    Bernie Deitrick
    Sep 25, 2009
  8. Becky
    Replies:
    1
    Views:
    135
    Gord Dibben
    Nov 20, 2009
Loading...