什么是合适的形状名称,因为我的例程没有说?
我在网上找到了以下例程: http://www.ozgrid.com/forum/showthread.php?t=77662 这个例程不起作用因为我不知道形状名称。任何人都可以告诉我一个矩形框的形状名称是什么? Function SetShapeText(s As String, sShpName As String) s = "some text" Dim i As Integer ActiveSheet.Shapes(sShpName).Select With Selection .Text = "" For i = 0 To Int(Len(s) / 255) .Characters(.Characters.Count + 1).Text = Mid(s, 255 * i + 1, 255) Next End With End Function 它出错在这一行:ActiveSheet.Shapes(sShpName).Select