拜托,有人可以幫我嗎!
我有一個名為 Configurator 或“Config”的用戶表單,它有一些影像控制元件。這些影像一起看起來像一扇門,因為用戶表單是門的配置器。(您可以在其中更改寬度、高度、材料等...)“門”主要由 4 個不同的影像組成,它們構成了門框。
現在我想在我的 excel 作業表上使用這些影像,因此用戶也可以在作業表上看到門的圖片。
哪種方法是最好的方法?我試圖將用戶表單中的影像復制并粘貼到 Excel 作業表中,但我不知道如何操作。我希望你們中的某個人可以告訴我正確的方法來做到這一點!
另一種方法可能是以某種方式制作用戶表單特定區域的螢屏截圖并將影像粘貼到作業表中。不知道有沒有辦法做到這一點?
謝謝你的幫助!
uj5u.com熱心網友回復:
請嘗試下一個方法:
讓我們說這pictDoor1是您需要“復制”的圖片的名稱和一個新按鈕來復制它 ( 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控制元件(作為要復制的圖片尺寸,剪切您可以通過乘法更改它們,如果需要更大的)并在其上放置必要的圖片。
然后,使用新創建的形狀top,并left根據以前創建width并height要適當地定位他們...
轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/322012.html
上一篇:陣列中的通配符查找-VBA
