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

    Nabeel K Guest

    worked perfect! thanks so much
     
    Nabeel K, Sep 26, 2013
    #5
    1. Advertisements

Ask a Question

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

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.