I am trying to find out how to programmatically copy the styles (colors/gradients) from one shape to another, but when I run the macro recorder and do a copy-paste of styles from one shape to the next, the macro recorder generates no code other than this boilerplate code:
'Enable diagram services
Dim DiagramServices As Integer
DiagramServices = ActiveDocument.DiagramServicesEnabled
ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150
'Restore diagram services
ActiveDocument.DiagramServicesEnabled = DiagramServices
Any idea of how to copy over style settings from one shape to the next? Thank you for your help and advice!