VBA 插入图片到指定单元格并保存图片为图片文件

最新推荐文章于 2025-06-16 09:52:47 发布

weixin_30799995

最新推荐文章于 2025-06-16 09:52:47 发布

阅读量3.1k

点赞数

CC 4.0 BY-SA版权

文章标签：嵌入式 matlab

原文链接：http://www.cnblogs.com/luoye00/p/10496271.html

本文介绍了如何使用VBA在Excel中插入图片，并将图片保存为单独的文件。教程详细讲解了VBA代码实现过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'Upload File to the specific folder
Sub UploadImages(s$, c$)
's$      Buttom number
'c$      Specify a location to show image
'souf$   The local path of the image file
'des$    The dest path of the image file
'dt$     Get date for Named file

Dim fso As Object, souf$, des$
Dim fn As String
Dim n As Integer
On Error Resume Next
Set fso = CreateObject("Scripting.FilesyStemObject")
souf = Application.GetOpenFilename("All image files  (*.jpg,.png,.bmp,.gif),*.jpg,.png,.bmp,.gif")

dt = Format(Now, "yyyymmdd")
des = "D:\2\VBA\A3\Images\" & dt & "-" & s & ".jpg"
fso.CopyFile souf, des 'Copy file from the path Souf$ to des$
MsgBox "Upload Success!"
Set fso = Nothing
Call ShowImages(des, c)
End Sub
'show images
Sub ShowImages(fn$, val$)
 
 'fn$            The save path after uploaded
 'val$           Specify a location to show image ,the value of this variable