Macro to Replace Markers with Custom shapes On Charts

If you want to use custom shapes instead of showing the values with markers on charts. Snapshot below-

Download Working File/Macro - https://www.box.com/s/02sfon6jloo7lpaj3s6c

 Steps to use -

• Download the working File
• Goto “Data” sheet . Change chart data as per your requirement , series name,etc.
• Add custom shapes to excel sheet which you would like to show  instead of markers
• Re size the shapes as per your requirement
• Update the table in Col L and M on data sheet
• Go to “Chart” sheet and click on Custom Markers 

Macro used to create Custom Markers -

Sub paste_custom_images_markers()
Dim srs As Series, j As Long, found As Range

For Each srs In Sheets(“Chart”).ChartObjects(“Chart 1″).Chart.SeriesCollection
Set found = Sheets(“Data”).Range(“l:l”).Find(srs.Name, LookIn:=xlValues)
If Not found Is Nothing Then
j = found.Row
Sheets(“Data”).Shapes(Sheets(“Data”).Range(“m” & j)).Copy
Sheets(“Chart”).ChartObjects(“Chart 1″).Activate
srs.Select
Selection.Paste
End If
Next

End Sub

Download Working File/Macro - https://www.box.com/s/02sfon6jloo7lpaj3s6c

Share this: