Shapes.addpicture运营出错：对象Addpicture的方法shapes失败

放空的路人

想写一个在指定单元格插入制定位置制定名称图片的VBA，运行是报对象“Addpicture”的方法“Shapes”失败，求大佬帮忙看下哪里出错了
图片名称依据A列命名，图片插入B列
Sub charutupian()
Dim a As String, b
Dim aaa As Worksheet
Set aaa = Sheet1
b = 2
Do While Range("A" & b) <> ""
a = ActiveWorkbook.Path & "/" & Range("A" & b).Value & ".png"
Range("B" & b).Select
aaa.Shapes.AddPicture a, msoFalse, msoTrue, 0, 0, -1, -1
b = b + 1
Loop

End Sub

taller

放空的路人

taller 发表于 2023-6-5 14:14

这个方法我知道，但是这种的Excel发给别人，别人打开是看不到图片的

放空的路人

taller 发表于 2023-6-5 14:14

shapes.addpicture的方式才可以将图片作为独档保存在excel里面，所以想用这种方式来写

放空的路人

taller 发表于 2023-6-5 14:14

大佬可以帮忙看下怎么用shapes.addpicture的方式实现吗？感谢大佬

smiletwo

反斜杠   \

taller

放空的路人 发表于 2023-6-5 14:50
这个方法我知道，但是这种的Excel发给别人，别人打开是看不到图片的

不存在这种问题

taller

smiletwo 发表于 2023-6-5 18:48
反斜杠   \

斜杠和反斜杠在 Win11+Excel365 都可以，不清楚其他版本

smiletwo

taller 发表于 2023-6-5 23:28
斜杠和反斜杠在 Win11+Excel365 都可以，不清楚其他版本

以前没试过，好像都可以