如何通过AppleScript在PowerPoint中为选中形状设置完全无填充？

PowerPoint的AppleScript接口里，fill format type是只读属性，直接设置为none无法生效。要实现和界面点击“无填充”完全一致的效果，需要对形状的填充对象执行delete操作，具体代码如下：

tell application "Microsoft PowerPoint"
    set selectedShapes to selection of active window
    repeat with aShape in selectedShapes
        delete fill of aShape
    end repeat
end tell

这段代码会遍历当前窗口中选中的所有形状，对每个形状的填充对象执行删除操作，彻底移除填充效果，此时形状的fill format type会变为fill unset，和手动设置无填充的状态完全一致。

内容的提问来源于stack exchange，提问作者RightWrite