方法‘UserTextured'作用于对象'FillFormat'时失败

Question

Sub Pic()
Dim rg As Range, shp As Shape
Dim X As Integer
For i = 1 To Cells(Rows.Count, "D").End(3).Row
Set rg = Cells(i, "E")
X = X + 1

ActiveSheet.Shapes.AddShape(msoShapeRectangle, rg.Left, rg.Top, rg.Width, rg.Height).Fill _
.UserTextured "Y:\品质部\55 数据中心\1.VBA项目\测试数据图片\" & rg.Offset(0, -1) & ".jpg"

Next

End Sub

一直报错：方法‘UserTextured'作用于对象'FillFormat'时失败
然后又会多一个格子被蓝色填充 请问怎么解决

Answer 1

这个是powerpoint才有的，你在excel中用？