Excel vba的时候一直抱运行时错误‘1004’，如何修改，ActiveSheet.Shapes(picture_name).Select这句之后出错的

[hhr58]

Sub tianse()
For i = 2 To 22
picture_name = Sheets("sheet3").Range("o" & i).Value
picture_value = Sheets("sheet3").Range("p" & i)

If picture_value = 0 Then
color_rgb = Sheets("sheet3").Range("t2").Interior.Color
ElseIf picture_value > 0 And picture_value <= 0.015 Then
color_rgb = Sheets("sheet3").Range("t3").Interior.Color
ElseIf picture_value > 0.015 And picture_value <= 0.03 Then
color_rgb = Sheets("sheet3").Range("t4").Interior.Color
ElseIf picture_value > 0.03 And picture_value <= 0.045 Then
color_rgb = Sheets("sheet3").Range("t5").Interior.Color
ElseIf picture_value > 0.045 And picture_value <= 0.06 Then
color_rgb = Sheets("sheet3").Range("t6").Interior.Color
ElseIf picture_value > 0.06 And picture_value <= 0.075 Then
color_rgb = Sheets("sheet3").Range("t7").Interior.Color
ElseIf picture_value > 0.075 And picture_value <= 0.09 Then
color_rgb = Sheets("sheet3").Range("t8").Interior.Color
ElseIf picture_value > 0.09 Then
color_rgb = Sheets("sheet3").Range("t9").Interior.Color
End If

ActiveSheet.Shapes.Range(Array("group10")).Select
ActiveSheet.Shapes(picture_name).Select
Selection.ShapeRange.Fill.ForeColor.RGB = color_rgb
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = FormatPercent(picture_value)

Next i
End Sub

[hhr58]

https://www.jianshu.com/p/24470eff186a 我是复制的这个帖子的，做法和他一样，调试看出，应该是这里出了问题，求救求救 ActiveSheet.Shapes(picture_name).Select Selection.ShapeRange.Fill.ForeColor.RGB = color_rgb Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = FormatPercent(picture_value) Next i End Sub