如何修改插入图片的VBA

531tommy · 发表于 2022-4-11 16:42

批量插入图片的VBA如何修改把图片的连接改为图片，使用文件发送到其他电脑都能看到

Sub insertpic()
Dim r As Long, i As Long
Dim path As String
Call DeletePic
r = ActiveSheet.[B65536].End(xlUp).row
path = ThisWorkbook.path & "\pic"
For i = 1 To r
If Dir(path & "\" & ActiveSheet.Cells(i, 2) & ".jpg") <> "" Then
      With ActiveSheet.Pictures.Insert(path & "\" & ActiveSheet.Cells(i, 2) & ".jpg").ShapeRange
         .LockAspectRatio = msoFalse
         .Left = ActiveSheet.Cells(i, 1).Left
         .Top = ActiveSheet.Cells(i, 1).Top
         .Height = ActiveSheet.Cells(i, 1).Height
         .Width = ActiveSheet.Cells(i, 1).Width
      End With
End If
Next i
End Sub

zjdh · 发表于 2022-4-11 20:03

你这语句本身就是插入图片，而不是链接呀。

531tommy · 发表于 2022-4-12 09:56

zjdh 发表于 2022-4-11 20:03
你这语句本身就是插入图片，而不是链接呀。

文件换了台电脑，图片全部就看不到了

zjdh · 发表于 2022-4-12 12:38

不会啊，你插入图片后，保存文件，删除图片库，再打开文件试试，文件中图片依然存在。
说明另一台电脑软件与你不兼容！

531tommy · 发表于 2022-4-12 13:46

zjdh 发表于 2022-4-12 12:38
不会啊，你插入图片后，保存文件，删除图片库，再打开文件试试，文件中图片依然存在。
说明另一台电脑软件 ...

导入图片后，把图片文件夹剪切到别的地方，文件的图片就不能看呢。

导图VB.zip (658.75 KB, 下载次数: 20)

zjdh · 发表于 2022-4-13 09:50

的确，你发来的文件图片看不见，可在我的系统中，导入图片后保存，删除了PIC文件夹，重新打开文件，图片依然存在，我将文件单独发给你，你打开试试。

导图.rar (53.11 KB, 下载次数: 4)

531tommy · 发表于 2022-4-13 21:00

zjdh 发表于 2022-4-13 09:50
的确，你发来的文件图片看不见，可在我的系统中，导入图片后保存，删除了PIC文件夹，重新打开文件，图片依 ...

是不行的

		自动登录	找回密码
密码			注册