Question

如何用VBA实现，点击自创图形后，获取图形中的文字，然后进入以该文字命名的工作表？

工作表有四个，“主界面”，“出库”,“入库”，“库存”
我在Excel工作表“主界面”新建三个图形，添加“出库”,“入库”，“库存”文本。
新插一个模块编写代码：
Sub Gotosheet()
Dim shp As Shape, sName As String
Set shp = Worksheets("主界面").Shapes(Application.Caller)
sName = shp.TextFrame.Charcaters.Text
Worksheets(sName).Activate
End Sub
最后给予每个图形 一个指定宏GOTOSHEET
但是最后实验结果，点击图形无法跳转“出库”,“入库”，“库存”工作表。
不知道错在哪里，代码没有给我任何错误提示，我判断是逻辑错误。
求大家热心解答。

Answer 1

Xname = ActiveSheet.Shapes(ActiveSheet.Shapes(Application.Caller).Name).TextFrame2.TextRange.Characters.Text

Worksheets(Xname).Activate

追问

运行同时显示不出结果。还有文字在图形上，不在单元格上，不需要textrange吧？

追答

你要切换的表格名称不是Shapes的文笔内容吗？
你要显示的结果是？

追问

第一问，是，
第二问 ，简单来说，我的要求是 点击 含“出库”文字的图形，就跳转“出库”的工作表。

追答

你指的是包含出库，而不是说 你的Shapes的文字就是 工作表的名字，
如果这样的话，你需要单独来处理 文字内容，以便程序能识别需要跳转的表格名称
比如：

if application.find("出库",Xname) then Xname="出库" else if application.find("主界面
",Xname) then Xname="主界面" ........

追问

你理解错了，你先看看版头的问题。每一个图形里面只输入两个字。shape的文字就是工作表的名字。点击出库的图形，就跳转出库工作表，点击入库的图形，就跳转入库工作表，点击库存的图形，就跳转库存工作表，

追答

我不清楚还有哪儿没有理解到。
Xname = activeSheet.Shapes(ActiveSheet.Shapes(Application.Caller).Name).TextFrame2.TextRange.Characters.Text
Worksheets(Xname).Activate

以上代码中：
第一句取出你点击的shape的文本，即你想要跳转的工作表的名称，
第二句 实现表格的跳转，不是吗？