Sub FormatWithPicture() Dim myChart As Chart Dim ser As Series Set myChart = ActiveChart Set ser = myChart.SeriesCollection(1) MyPic = "C:\Title.jpg" ser.Format.Fill.UserPicture (MyPic) End Sub