Consulting

Results 1 to 3 of 3

Thread: Update Font size on Title 1 on certain slide numbers

  1. #1

    Update Font size on Title 1 on certain slide numbers

    HI,

    I have the following that is giving me an error "Method 'Item' of object 'Shapes' failed: Can someone help me fix this?

    Sub FixTitleSlideFontSize()
    
        With ActivePresentation.Slides.Range(Array(17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 29, 30, 31, 32, 34, 42)).Shapes("Title 1")
            
            With .TextFrame.TextRange.Font
                
                .Size = 16
                
                .Name = "Arial"
                
                .Bold = True
                
            End With
            
        End With
        
    End Sub

  2. #2
    Sub FixTitleSlideFontSize()
        Dim sld As Slide
        With ActivePresentation
            For Each sld In .Slides.Range(Array(17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 29, 30, 31, 32, 34, 42))
                With sld.Shapes("Title 1")
                    With .TextFrame.TextRange.Font
                        .Size = 16
                        .Name = "Arial"
                        .Bold = True
                    End With
                End With
            Next
        End With
    End Sub

  3. #3
    Thank you. This did the trick!

Posting Permissions

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