插入图片提示语法错误 怎么解决？

Sub 插入图片()

Dim pic As String, n As Long

Dim picTemp As Picture

pic = Dir("D:\商品\2024\Q3\23Q3图片\") '选择目录

While pic > ""

'仅列出jpg/bmp和gif格式的文件名

If pic Like "*.jpg" Or pic Like "*.bmp" Or pic Like "*.gif" Then

n = n + 1

Range("a" & n).Select

Set picTemp = ActiveSheet.Pictures.Insert("D:\商品\2024\Q3\23Q3图片\" & pic)

picTemp.Placement = xlMoveAndSize

With picTemp.Select

Selection.ShapeRange.LockAspectRatio = 0

Selection.ShapeRange.Width = 10

Selection.ShapeRange.Height = 10

End With

End If

pic = Dir()

Wend

End Sub

你的两个涉及目录的地方少了这个符号 \