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即可使用。