VBA，通过单击按钮填充形状

Question

我对宏非常陌生，我正在尝试自学 Excel 2013 中的 VBA，并且需要很多帮助。我想知道当我单击 ActiveX 按钮时如何更改形状填充颜色(而不是单元格)。这是我的想法:

onClick()                            <-- Do I need a button name?
if shape.color = RGB(231,230,230)    <-- this is the starting color
    shape.color = RGB(0,0,0)         <-- this is what I want to change it to
else
    shape.color = RGB(231,230,230)   <-- if color is black change to this
end if

顺便说一句，这是为了好玩，而不是为了任何特别或官方的事情。

Answer 1

这是您要查找的代码:

Option Explicit

Sub ButtonClick()

Dim shp As Shape

Set shp = ThisWorkbook.Worksheets(1).Shapes("Rectangle 1")

If shp.Fill.ForeColor.RGB = RGB(231, 230, 230) Then
    shp.Fill.ForeColor.RGB = RGB(0, 0, 0)
Else
    shp.Fill.ForeColor.RGB = RGB(231, 230, 230)
End If

End Sub

只需确保将上述代码调整为正确的形状名称(本例中为“Rectablge 1”，位于 Sheet(1) 上)。

然后，在该工作表上创建一个按钮并将此宏分配给该按钮以使其工作并在黑色和灰色之间切换形状颜色。

下次，我建议您(第一步)使用 VBA 宏记录器记录您希望 Excel 为您执行的操作:https://www.youtube.com/watch?v=Q_HQGHPBYoo然后，查看代码并尝试通过突出显示 VBA 关键字并按 F1 来理解它。另外，我建议阅读以下内容:http://www.homeandlearn.org/之后您应该编写一些相当奇特的宏。