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