如果是vba控件的话,我到知道有这么个用法,但这是excel最基本的那种文本框,要怎么实现呢?哦,你说的是图形吧。试试下面的方法:Sub test() Dim Shp As Shape Set Shp = Shapes(1) Debug.Print Shp.TextFrame.Characters.Text End Sub
如果是vba控件的话,我到知道有这么个用法,但这是excel最基本的那种文本框,要怎么实现呢?哦,你说的是图形吧。试试下面的方法:Sub test() Dim Shp As Shape Set Shp = Shapes(1) Debug.Print Shp.TextFrame.Characters.Text End Sub
''这里应该可以处理呀
End Sub
问题就是我这样获取不到值,debug出来object 不支持该方法
如果是vba控件的话,我到知道有这么个用法,但这是excel最基本的那种文本框,要怎么实现呢?
如果是vba控件的话,我到知道有这么个用法,但这是excel最基本的那种文本框,要怎么实现呢?哦,你说的是图形吧。试试下面的方法:Sub test()
Dim Shp As Shape
Set Shp = Shapes(1)
Debug.Print Shp.TextFrame.Characters.Text
End Sub
如果是vba控件的话,我到知道有这么个用法,但这是excel最基本的那种文本框,要怎么实现呢?哦,你说的是图形吧。试试下面的方法:Sub test()
Dim Shp As Shape
Set Shp = Shapes(1)
Debug.Print Shp.TextFrame.Characters.Text
End Sub
恩恩,感谢~~刚自己用录制macro的方法也发觉了,应该用shape的
解决!!