返回列表 上一主題 發帖

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

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-2-2 11:28 | 顯示全部帖子

[發問] 關於圖片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

帖子
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

帖子
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

帖子
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

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題