格式化图片对象答案

【问题标题】：Format a picture object格式化图片对象
【发布时间】：2014-05-29 22:56:02
【问题描述】：

我有一个可以使用以下代码选择和移动的对象：

ActiveWorkbook.Worksheets("Sheet1").Shapes.Range(Array("test")).Select

接下来是需要执行的任何方法。我现在正在尝试格式化这个对象，使其没有填充和线条，但无法弄清楚如何做到这一点。我曾尝试录制宏并在线搜索，但找不到适用于该对象的任何内容。

【问题讨论】：

【解决方案1】：

如果您使用的是单个形状，我认为没有理由使用 Shapes.Range(Array("test"))，请尝试使用单个形状，并参阅文档以获取可用属性，例如 .Fill：

形状对象参考：

形状.Fill参考：

等等

Sub Test()
Dim shp as Shape
Set shp = ActiveWorkbook.Worksheets("Sheet1").Shapes("test")

shp.Fill.Visible = msoFalse

'etc...
End Sub

【讨论】：

【解决方案2】：

经过一百万次尝试后找到它！

With ActiveWorkbook.Worksheets("Sheet1").Shapes.Range(Array("test"))
.Fill.Visible = msoFalse
.Line.Visible = msoFalse
End With

【讨论】：