+ Reply to Thread
Results 1 to 5 of 5

resizing the image in PPT using VBA

Hybrid View

  1. #1
    Registered User
    Join Date
    07-06-2010
    Location
    India
    MS-Off Ver
    Excel 2003
    Posts
    10

    Re: resizing the image in PPT using VBA

    Can someone please help?

  2. #2
    Registered User
    Join Date
    04-03-2012
    Location
    Melbourne, Australia
    MS-Off Ver
    Excel 2007
    Posts
    1

    Cool Re: resizing the image in PPT using VBA

    Hi, this maximises all images in the presentation.


    Public Sub MaximiseImages()
        Dim p As Presentation
        Set p = ActivePresentation
        Dim HeightMax As Single, WidthMax As Single
        HeightMax = p.SlideMaster.Height
        WidthMax = p.SlideMaster.Width
        Dim s As Slide
        For Each s In p.Slides
            Dim i As Shape
            For Each i In s.Shapes
                If i.Type = msoPicture Then
                    i.LockAspectRatio = msoFalse
                    i.Top = 0
                    i.Height = HeightMax
                    i.Left = 0
                    i.Width = WidthMax
                End If
            Next i
        Next s
    End Sub

  3. #3
    Registered User
    Join Date
    09-09-2012
    Location
    Colorado
    MS-Off Ver
    Excel 2010
    Posts
    1

    Re: resizing the image in PPT using VBA

    How did you define SlideMaster as in the above code?

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Bookmarks

Posting Permissions

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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1