用vba修改矩形的线条颜色问题

myselfjo

大家好，请教一个问题：
我想在ppt播放的时候用代码修改一个矩形框的线条颜色，修改后的颜色当时并不显示，停止播放后，才发现颜色已经被修改过了，怎样让修改后的颜色即时显示啊？
用代码修改矩形内的文字，可以即时显示，修改线条颜色却不能显示，这是为什么啊？

user_dbunpybw

传上来看看！

user_ezjnt

自己试验了若干次后，发现
需要在修改矩形框线条颜色后，再加一行修改另一个文本框的text的代码，就可显示修改后的颜色，但仍不知道这是为什么。
上传附件

user_epodw

看你的代码，你要改变的是形状的填充颜色，不是线条（边框）颜色啊。
代码开始的两行文本清空代码我觉得应该要，初始化文本框。接着的两行同样代码可以不要，后面的给文本框赋值代码，应该要！
另外要说明的，该效果在演示循环语句时还是很有用的，谢谢！！

user_xfjsv

如果不要的话，就不会如期出现矩形颜色填充了，不信你试试看。不知道为什么？

user_lwonh

去掉也照样变色，除非代码将将文本框的背景填充改变为“无”，但代码中没有此语句哦。因此无法理解你的怎么会不能如期出现矩形颜色填充。