How to fill a shape with a Pantone color using VBA

There may be a more elegant way to get there than this, but this might help you get going:

Sub demonstrate_specifying_Pantone_color()
Dim palThis As Palette
Dim lngIndexOfColor As Long
Dim colThis As Color
Const strPaletteName As String = "PANTONE® solid coated"
Const strColorName As String = "PANTONE Hexachrome Cyan C"

    Set palThis = Application.PaletteManager.GetPalette(strPaletteName)
    lngIndexOfColor = palThis.FindColor(strColorName)
    Set colThis = palThis.Color(lngIndexOfColor)
    
    ActiveShape.Fill.ApplyUniformFill colThis

End Sub

If I needed to do that very much, I would wrap things up in a function - with some error handling! - so that I could supply the palette name and color name, and have it return the color.

Hello,

First macro is recorded. Second macro iterate all active color palettes to see names and identifiers.
Greetings!

Sub PANTONE_COLOR()
' Recorded 16.3.2023 ã.
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
OrigSelection.ApplyUniformFill CreateSpotColor("a4e9990e-f1cc-4fae-9d93-53dcedb4261a", 2, 100)
ActiveSelection.Fill.PSScreen.SetProperties "Default", 45#, 60
End Sub

Sub ADD_PANTONE_COLOR()
'ActiveShape.Fill.ApplyUniformFill CreateSpotColorByName(
MsgBox Application.Palettes.Count
Dim mpal As Palette
For Each mpal In Application.Palettes
MsgBox mpal.Name & " " & "Identifier = " & mpal.Identifier
Next
End Sub