Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

To fill the bars of a data series with a picture

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