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

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-2-2 13:37 | 只看該作者

回復 1# av8d

Option Explicit
Private Sub Image1_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "D:\*.*" '修改為你的桌面路徑
If .Show = -1 Then Image1.Picture = LoadPicture(.SelectedItems(1))
End With
End Sub

複製代碼

刪除Image1的圖片 Image1.Picture = LoadPicture("")
VBA的說明:
Height、Width 屬性物件的高度與寬度，單位為點。
點數一點為 1/72 吋。字形大小通常以點數來量度
Height 或 Width 必須大於等於零。在多數系統中，通常其範圍在 0 到 +32,767 之間，超過的話則需視系統而定。

howard3344

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 8
點名: 0
作業系統: win7
軟體版本: home
閱讀權限: 10
註冊時間: 2012-2-2
最後登錄: 2012-2-3

3^#

發表於 2012-2-2 17:52 | 只看該作者

印象上一單位為視窗坐標1單位的長度

av8d

大學生 Rank: 4

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

4^#

發表於 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 陳述式。

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

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2012-2-4 10:58 | 只看該作者

回復 4# av8d
您好~如果我是開啟畫一個圓形~然後右鍵→指定巨集
錄製:

Sub Macro1()
ActiveSheet.Shapes("AutoShape 1").Select
Selection.OnAction = "ThisWorkbook.EX"
End Sub

複製代碼

自己寫的

Sub EX()
Sheet1.Shapes("AutoShape 1").OnAction = "ThisWorkbook.EX"
End Sub

複製代碼

***************************
Dim RetVal                               ' 為一 Variant。
' 預設屬性指定為型態 8，即 Variant RetVal。
RetVal = CreateObject("Excel.Application")
RetVal.Visible = True             ' 錯誤在此發生。
當指定物件引用時，請使用 Set 陳述式。
*********這一段不明瞭你已知道  請使用 Set 陳述式

av8d

大學生 Rank: 4

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

6^#

發表於 2012-2-4 11:34 | 只看該作者

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

回復 5# GBKEE

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

點了一下說明出現

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

Sub 橢圓32_Click()

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

謝~謝~大~大

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2012-2-4 12:33 | 只看該作者

回復 6# av8d
附上檔案看看

Sub Ex()
ActiveSheet.Pictures.Delete '刪除全部照片
''''''''''''''''''''''''''''''''''''''''''
ActiveSheet.Shapes.SelectAll '點選全部圖片
Selection.Delete '刪除點選全部圖片
End Sub

複製代碼

av8d

大學生 Rank: 4

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

8^#

發表於 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("")
...
..
.
.

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

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2012-2-4 13:32 | 只看該作者

回復 8# av8d
Sheet1 沒有橢圓 32
Sub 橢圓32_Click()
Sheet3.Shapes("橢圓 32").OnAction = "ThisWorkbook.EX"
End Sub