删除powerpoint表

Question

我想删除表的外部阴影属性。

我使用了以下代码，但它无效。

with table.rows(x).columns (x).shape.shadow
.visible =false
end with

Answer 1

如果您的表格形状对象设置为oShp，这将返回整个表格形状的阴影属性，而不是单个单元格：

oShp.Shadow

但似乎有一个错误（最新的表对象模型中有很多）写入此属性，因为它被忽略：

oShp.Shadow = msoFalse

我打算建议使用CommandBars.ExecuteMso，但似乎不是shadow = none的控件ID。因此，除了可怕的SendKeys之外，我无法看到解决方法，而且总是最不可取的选择。

您可以使用此解决方法：

oShp.Shadow.Transparency = 1

Answer 2

您可以通过将预定义的Microsoft样式应用于Table对象来强制关闭阴影：

oShp.Table.ApplyStyle "{2D5ABB26-0587-4C30-8999-92F81FD0307C}"

形状样式ID可以在这里找到：

https://msdn.microsoft.com/en-us/library/office/hh273476%28v=office.14%29.aspx?f=255&MSPPError=-2147217396