Consulting

Results 1 to 3 of 3

Thread: Move Title on every slide

  1. #1
    VBAX Regular
    Joined
    Feb 2022
    Posts
    6
    Location

    Move Title on every slide

    I am trying to change the top location of the title on every slide in my ppt, but my code is only moving the title on the first slide. I am new to VBA so I am running out of ideas on how to make it work.

    Sub RepositionTitle()
    Dim sld As Slide
    For Each sld In ActivePresentation.Slides
        If sld.Shapes.HasTitle Then
            ActivePresentation.Slides(1).Shapes.Title.Top = 72 * 0.12
        End If
    Next sld
    End Sub

  2. #2
    VBAX Sage
    Joined
    Apr 2007
    Location
    United States
    Posts
    8,711
    Location
    Not tested

    Sub RepositionTitle()
    Dim sld As Slide
    For Each sld In ActivePresentation.Slides
        If sld.Shapes.HasTitle Then
            sld.Shapes.Title.Top = 72 * 0.12  ' <<<<<<<<<<<<<<<<<<<<
        End If
    Next sld
    End Sub
    ---------------------------------------------------------------------------------------------------------------------

    Paul


    Remember: Tell us WHAT you want to do, not HOW you think you want to do it

    1. Use [CODE] ....[/CODE ] Tags for readability
    [CODE]PasteYourCodeHere[/CODE ] -- (or paste your code, select it, click [#] button)
    2. Upload an example
    Go Advanced / Attachments - Manage Attachments / Add Files / Select Files / Select the file(s) / Upload Files / Done
    3. Mark the thread as [Solved] when you have an answer
    Thread Tools (on the top right corner, above the first message)
    4. Read the Forum FAQ, especially the part about cross-posting in other forums
    http://www.vbaexpress.com/forum/faq...._new_faq_item3

  3. #3
    VBAX Regular
    Joined
    Feb 2022
    Posts
    6
    Location
    Thank you Paul! Your solution works!

Tags for this Thread

Posting Permissions

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