visio07 ，如何用vba获取形状的特定属性？

吴佳雄

做了个visio的机房设备图，也想能如社区中"车位图"的那个方法，为使用不同电路供电的设备标示不同的颜色。但苦于不知道如何获取一个形状的属性，依照那个宏改了好久都没能成功，特来求助各位达人。
    求2个宏，应分别有如下功能：

          宏1.检索机柜内的设备属性，如果“电源使用”一项是“A”，就将设备颜色变为蓝色；如果该项是“B”就将设备颜色变为黄色；如果是“A&B”就将设备颜色变为绿色。
          宏2：可以清除设备内的填充色。（因有的形状本身有颜色，但本身有颜色的形状名称固定为“服务器”“存贮”）希望只清除这两种设备以外形状的填充颜色。

    附件为机柜图的一部分，求帮助。
绘图1.rar (187.37 KB, 下载次数: 18)

2012-4-23 10:43 上传

点击文件名下载附件