[發問] 關於圖片VBA的問題

本帖最後由 av8d 於 2012-2-2 11:32 編輯

我開啟了兩張圖片VBA~分別是Image1和Image2

我希望我點一下Image1將會跑插入圖片的那個視窗，
預設路徑是桌面，然後能讓我選取，可是不知道裡面該怎麼寫
Private Sub Image1_Click()

End Sub

然後寫個巨集去刪除Image1的圖片，但是內容有錯
Sub ColseImage_Click()
Image1.Picture = (無)
End Sub

然後寫個巨集去刪除全部的圖片VBA，但是內容有錯
Sub ColseImage_Click()
Image1.Picture = (無)
Image2.Picture = (無)
End Sub

圖片VBA內的Height和Width內的數值單位是?公分還是?

樓主熱帖

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

2^#

發表於 2012-2-4 10:33 | 顯示全部帖子

回復 2# GBKEE

刪除Image1的圖片 Image1.Picture = LoadPicture("")

您好~如果我是開啟畫一個圓形~然後右鍵→指定巨集

會出現此處需要物件 (錯誤 424)

Dim RetVal ' 為一 Variant。
' 預設屬性指定為型態 8，即 Variant RetVal。
RetVal = CreateObject("Excel.Application")
RetVal.Visible = True ' 錯誤在此發生。

當指定物件引用時，請使用 Set 陳述式。

所以如果是用指定巨集的寫法不同的地方是? 再次感謝。

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

3^#

發表於 2012-2-4 11:34 | 顯示全部帖子

本帖最後由 av8d 於 2012-2-4 11:54 編輯

回復 5# GBKEE

如果我是寫在橢圓32裡面該如何套用呢?因為會出現 "系統錯誤&H80070057(-2147024809)"

點了一下說明出現

產生指定系統錯誤
Visual Basic 遇到一個由系統或外部元件所產生的錯誤。

Sub 橢圓32_Click()

End Sub
如果要一次刪除全部的圖片VBA寫法是否有比較簡易的方法呢?

謝~謝~大~大

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

4^#

發表於 2012-2-4 12:52 | 顯示全部帖子

本帖最後由 av8d 於 2012-2-4 13:01 編輯

回復 7# GBKEE

123.rar (174.85 KB)

我剛測試了一下~都可以了~
Image1.Picture = LoadPicture("")

刪除全部就要複製貼上10次了
Image1.Picture = LoadPicture("")
Image2.Picture = LoadPicture("")
...
..
.
.

謝謝版主~您辛苦了~應該都還沒吃飯吧~再次感謝!

TOP