excel - 如何以编程方式将图像添加到命令按钮/表单按钮/图像控件

Question

我对 VBA 还很陌生，而且我主要从 Stack Overflow 等论坛学到了很多东西。我一遍又一遍地寻找这个问题的解决方案，但似乎找不到任何......我想要做的是有一个代码，当执行时，将在第三列中插入一个“按钮”所选行的。例如，如果选择了单元格“S83”，我希望在单元格 S3 中出现一个“按钮”。我说“按钮”是因为它是命令按钮、表单按钮还是图像控件(来自表单控件)对我来说并不重要，只要它显示图像并在单击时执行操作即可。玩弄我从论坛和宏记录器获得的代码，我最终得到了两段不同的代码。第一个设法插入图片，但我不知道如何使它在单击时执行操作:

Sub AddImageControl()
Dim t As Range
Dim btn As OLEObject
Set t = ActiveSheet.Cells(Selection.Row, 3)
Set btn = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
    DisplayAsIcon:=False, Left:=t.Left, Top:=t.Top, _
    Width:=t.Width, Height:=t.Height
With btn
    .Object.Picture = LoadPicture("C:\Users\dummy\Pictures\Task.jpg")
    .Object.PictureSizeMode = fmPictureSizeModeZoom
    .ShapeRange.Left = t.Left
    .ShapeRange.Top = t.Top
    .ShapeRange.Width = t.Width
    .ShapeRange.Height = t.Height
End With
End Sub

第二段代码插入了一个表单按钮，它允许我执行一个取决于按钮所在行的操作(非常感谢)。但这一次，我不知道如何在按钮中插入图像:

Sub AddFormsButton()
Dim sShape As Shape

Dim t As Range
Set t = ActiveSheet.Cells(Selection.Row, 3)

With t
    Set sShape = Sheet1.Shapes.AddFormControl _
    (Type:=xlButtonControl, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
End With
With sShape
    .OnAction = "test"
    .TextFrame.Characters.Caption = ""
End With

End Sub


Sub test()
MsgBox "This button is in row " & ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row + 1
End Sub

如果有人可以帮助我解决这个问题，我将不胜感激。请注意这些不是 CommandBar 按钮也不是 UserForm 按钮，它们必须放在工作表中。
提前致谢。

Answer 1

您可以在工作表上放置两种类型的控件:表单控件和 ActiveX 控件。它们都可以在 Excel 前端的开发人员功能区上找到。



如果您没有看到开发人员功能区，请右键单击功能区，选择自定义功能区，然后检查功能区列表中的开发人员。

ActiveX 控件更强大——右键单击一个，单击属性，然后查看它支持的许多功能。

要回答您的第一个问题，如何向您在第一个代码块中创建的 OleObject 添加操作:您在代码中创建的按钮是一个 ActiveX 控件。要查找其事件过程，请通过单击开发人员功能区上的设计模式按钮切换到设计模式。现在，双击您的 activeX 按钮，Excel 将直接带您进入该按钮的事件宏。该事件在工作表代码隐藏中可用。

无需所有编程工作即可轻松地将图像放在 ActiveX 控件上。在 Excel 前端，在设计模式下，右键单击 ActiveX 按钮并选择属性。您会在其中找到“图片”属性。

回答您的第二个问题:您的第二个示例是表单控件。表单控件是一种较旧的技术，而且非常简单。我很想知道自己如何在一张照片上放一张照片:)

但是，您可以轻松地将宏分配给直接插入到工作表上的任何图像——您只是不会获得通过按钮获得的花哨的“插入”动画。在插入功能区上，单击图片。选择您的图片，然后单击确定。现在右键单击图片并选择“分配宏”。这正是您将宏分配给老式表单控件的方式——同样，不需要任何代码来创建控件或为其分配宏。

这应该足以让你继续前进。