以下代码，为依次显示文本框中的内容如果是变量调用，自己改动即可 Sub main() Dim shp As Shape For Each shp In ActiveSheet.Shapes MsgBox shp.OLEFormat.Object.Text Next End Sub
