本示例显示活动演示文稿中的其他颜色的数量。

MsgBox ActivePresentation.ExtraColors.Count