With ActivePresentation.Slides(1).Master.TextStyles(wpBodyStyle).Levels(0) With .Font .Name = "arial" .Size = 36 End WithEnd With