Question

这段代码是啥意思？NM = ThisWorkbook.Path & "\" & aa & ".jpg"

NM = ThisWorkbook.Path & "\" & aa & ".jpg"
If Dir(NM) <> "" Then
ActiveSheet.Pictures.Insert(NM).Select
如果我要写一段在word中运行的类此的代码，我该如何写？

Answer 1

插入图片的意思
工具--宏--VB编辑器-插入--模块--在模块中 添加以下代码
Sub Test()
NM = “图片路径" '自行修改图片路径
If Dir(NM) <> "" Then
Selection.InlineShapes.AddPicture FileName:=NM
End If
End Sub
关闭编辑器 回到文档中--工具--宏--宏 在列表中找到 Test 选中 点 运行 即可