Question

我想使用形状在工作表上放置箭头，并且我希望箭头始终保持75％的透明度，并且我不想单击每个箭头并每次手动更改它。能做到吗？

Answer 1

啊！我不想为此烦恼VBA。

但是您确实帮助我找到了一种可行的方法。您让我寻找“默认”一词。我画了箭头，右键单击它，选择“设置形状格式”，将透明度更改为75％，然后再次右键单击箭头并选择“设置为默认线”，现在它们似乎都显示为75％。

Answer 2

虽然透明度不是75％，但是可以通过更改默认形状样式来实现50％的透明度：创建形状，并且功能区上会显示一个“形状格式”上下文选项卡。如果右键单击预设，则可以将其设置为默认。有0％，50％和100％透明预设。

我不知道一种创建 custom 样式的方法。

您还可以只创建所有形状，然后使用VBA同时更改工作表上每个形状的透明度：

Sub ChangeShapeTransparency()
    'Put in the Code Page of the Worksheet that you want to change,
    'then press F5 to run
    Dim shp As Shape
    
    For Each shp In Me.Shapes
        shp.Fill.Transparency = 0.75 'Fill is 75% transparent
        shp.Line.Transparency = 0.75 'Outline is 75% transparent
    Next shp
End Sub

（完成工作后，您可以删除代码）

在Excel中，有没有一种方法可以设置形状的默认透明度？

2 个答案: