如何复制粘贴用户窗体控件到工作表？

Question

拜托，谁能帮帮我！

我有一个名为 Configurator 或“Config”的用户表单，其中包含一些图像控件。这些图像一起看起来像一扇门，因为用户窗体是门的配置器。（您可以在其中更改宽度、高度、material 等...）大多数情况下，“门”由构成门框的 4 个不同图像组成。

现在我想在我的 excel-worksheet 上使用这些图像，这样用户就可以在工作表也是。

哪种方法最好？我试图将图像从用户窗体复制并粘贴到 excel 工作表，但我不知道如何操作。希望有人能告诉我正确的方法！

另一种方法是以某种方式制作用户表单特定区域的屏幕截图并将图像粘贴到工作表中。不知道有没有办法做到这一点？

感谢您的帮助！

Answer 1

请尝试下一种方式：

假设 pictDoor1 是您需要 'copy' 的图片名称和一个用于复制它的新按钮 (copyPicture)。在其 Click 事件中复制下一个代码：

Private Sub copyPicture_Click()
   Dim shPict As MSForms.Image, pic As MSForms.Image
   Set pic = Me.pictDoor1 'use here the real name of the Image control
   Set shPict = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", link:=False, _
        DisplayAsIcon:=False, left:=20, top:=20, width:=pic.width, height:=pic.height).Object
   shPict.Picture = pic.Picture
End Sub

它会插入一个Image控件（作为要复制的图片尺寸，剪切可以通过乘以改变它们，如果需要更大的）并在其上放置所需的图片。

然后，根据之前创建的width和height使用新创建的形状top和left来适当定位它们...

如何复制粘贴用户窗体控件到工作表？

How to Copy Paste Userform Controls to a Worksheet?

excel

controls

vba

worksheet

userform