本示例显示活动演示文稿中的其他颜色的数量。
MsgBox ActivePresentation.ExtraColors.Count