Results 1 to 3 of 3
  1. #1
    3 Star Lounger
    Join Date
    Jul 2005
    Location
    Bahrain
    Posts
    373
    Thanks
    1
    Thanked 0 Times in 0 Posts
    hi all,

    is there a way to auto re-size multiple inserted images(pdf,jpg....) (not charts) in an excel sheet.

    dubdub
    TIA
    dubdub

  2. #2
    5 Star Lounger AndrewKKWalker's Avatar
    Join Date
    Apr 2001
    Location
    Cambridge, UK
    Posts
    1,020
    Thanks
    0
    Thanked 3 Times in 3 Posts
    Depends on the Object Types

    If they are just pictures then something like this might work

    This sub would need running off a button.

    If you wanted it automated then you need to look at the appropriate worksheet events as the trigger

    Code:
    Sub SizePics()
    
    Dim pic As Picture
    Dim dblWidth As Double, dblHeight As Double
    
    Const CMTOPX = 37.795
    
    'Size in CM 5 Wide x 2 High
    dblWidth = 5 * CMTOPX
    dblHeight = 2 * CMTOPX
    
    For Each pic In ActiveSheet.Pictures
            pic.Width = dblWidth
            pic.Height = dblHeight
    Next
    
    MsgBox "Pictures Sized"
    
    End Sub
    Andrew

  3. #3
    3 Star Lounger
    Join Date
    Jul 2005
    Location
    Bahrain
    Posts
    373
    Thanks
    1
    Thanked 0 Times in 0 Posts
    many thanks AKW, and sorry for my late reply, i will give this a try. what i have are multiple PDF clips captured and downloaded fro clip board to xl sheet and i want them be sized equally.
    TIA
    dubdub

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •