A. 如何用VBA打開一個圖片文件
可以在工具欄加一個菜單按鈕用來顯示窗體，然後對這個菜單按鈕綁定宏。先定製一個宏（這個總該會吧） 1.定製宏： Sub showform() userform1.Show End
B. VBA excel 查找圖片文件夾下的圖片文件，並打開。
Subpng()
Dimpn'定義文件名稱
Dimi
pn=Dir("C:UsersdxzyDesktop新建文件夾*.png")'查找第一個文件名稱
i=1
DoWhilepn<>""
Range("a"&i)=pn
'excel打開圖片文件是什麼鬼？是插入圖片嗎？
pn=Dir'查找後續文件名稱
i=i+1
Loop
EndSub
C. excel 用 vba 圖片操作
圖片有名字的
用shapes("名字") 應該可以
如果你是手動導入，則必須手動修改名字
如果你是代碼導入的，也要設置名字
個人經驗，希望採納
D. excel 用VBA 編寫宏，調用圖片問題
根據樓主的描述，個人覺得在VBA代碼里邊加入一個取消/允許觸發連鎖事件的語氣就可以了，當雙擊C7單元格並回車之後，才會執行這些程序，引用改變的單元格無效（不會執行程序）。
示例如下：
Option Explicit
Private Sub Worksheet_Change(ByVal T As Range)
Application.EnableEvents = False '禁止觸發連鎖事件
On Error Resume Next
If T.Address = "$C$7" Then
Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "" & T.Value & ".jpg")
End If
If Err <> 0 Then MsgBox "此人沒有照片", 16, "提示"
Application.EnableEvents = True '允許觸發連鎖事件
End Sub
VBA程序代碼截圖
E. 如何通過VBA打開word中插入的工程圖（CAD）對象
方法/步驟
首先我們打開帶有cad圖形對象的word文檔.
然後在cad圖形對象上點擊右鍵選擇右鍵菜單中的設置對象格式。
F. Excel vba 不用打開或插入文件jpg,tif文件,怎麼讀取指定圖片文件的尺寸、解析度 實在是沒財富了。
Function get_file_dim(ByVal filepath As String)
'水平分辯率 161 寬度 162 垂直分辯率 163 高度 164 尺寸 31
arr = [{161,162,163,164,31}]
Dim brr()
ReDim brr(1 To UBound(arr))
Set ObiFolder = CreateObject("shell.Application").Namespace(Left(filepath, InStrRev(filepath, "\")))
For i = 1 To UBound(arr)
brr(i) = ObiFolder.getdetailsof(ObiFolder.Items.Item(Right(filepath, Len(filepath) - InStrRev(filepath, "\"))), arr(i))
Debug.Print brr(i)
Next i
get_file_dim= brr
End Function
用這個就可以了，輸入文件的完整路徑，得到一個數組，注意包含數字以外的字元，這個函數是參考以下代碼：
Sub Fileinfo()
Sheet1.Cells.ClearContents
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show = -1 Then GetDirectory = fd.SelectedItems(1)
Dim c As Long, R As Long, i As Long
Dim FileName As Object, ObjShell As Object, ObiFolder As Object
Set ObjShell = CreateObject("shell.Application")
Set ObiFolder = ObjShell.Namespace(GetDirectory)
On Error Resume Next
c = 0
For i = 0 To 287
If i = 27 Or i = 28 Or i = 29 Or i = 31 Then
Else
c = c + 1
Cells(1, c) = ObiFolder.getdetailsof(ObiFolder.Items, i)
End If
Next i
R = 1
For Each FileName In ObiFolder.Items
c = 0
R = R + 1
For i = 0 To 287
If i = 27 Or i = 28 Or i = 29 Or i = 31 Then
Else
c = c + 1
Cells(R, c).Activate
Debug.Print ObiFolder.getdetailsof(FileName, i)
Cells(R, c) = ObiFolder.getdetailsof(FileName, i)
End If
Next i
Next FileName
ActiveSheet.ListObjects.Add xlSrcRange, [a1].CurrentRegion
Set fd = Nothing
End Sub
如果函數輸出的和我注釋的不一樣，那麼你用上面這段重新確認一下屬性的編號
G. vba怎樣設置圖片顯示與隱藏
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$1" Then Exit Sub
If Target = 0 Then
ActiveSheet.Shapes.Range(Array("圖片 2")).Visible = msoFalse
ElseIf Target = 1 Then
ActiveSheet.Shapes.Range(Array("圖片 2")).Visible = msoTrue
End If
End Sub
代碼貼在本表的代碼窗中，不是模塊中。圖片 2的名稱請按實際名稱修改，選中圖片，看下地址欄中顯示的名稱是啥就改成啥，比如」圖片 10」
H. 2007版Excel怎樣用VBA代碼插入圖片求代碼
1、打開Excel，准備好表格。
I. 如何用VBA選中特定sheet頁中的特定圖片
Private Sub right_Click()
Sheets("sheet4").Shapes("picture 3").Copy 'sheet4為目標圖片所在工作表，自行修改
Range("A1").Select
***.paste
End Sub
J. wps的VBA快捷打開
1、如何獲取安裝許可權
1）WPS Office 中VBA部分僅在WPS企業版中提供。
2）若您是WPS企業版用戶，可在WPS中登錄您的企業賬號，或輸入序列號激活WPS，獲取VBA支持庫的安裝許可權。
2、啟用宏
登錄企業賬號或輸入序列號激活WPS後，點擊「啟用宏」按鈕，獲取VBA安裝許可權，進一步安裝VBA。
3、已有VBA安裝包
若您已有VBA安裝包，安裝完成後，重新啟動WPS即可使用。