[已解决]shapes取不到，取另一个时，，

kippon · 发表于 2011-10-10 21:46

提示: 作者被禁止或删除内容自动屏蔽

Zipall · 发表于 2011-10-10 22:00

可以试试用它的index而不是name

Private Sub CommandButton1_Click()
For Each sht In Sheets
MsgBox sht.Shapes(1).TextFrame.Characters.Text
Next
End Sub

kippon · 发表于 2011-10-10 22:03

提示: 作者被禁止或删除内容自动屏蔽

kippon · 发表于 2011-10-11 00:54

提示: 作者被禁止或删除内容自动屏蔽

Zipall · 发表于 2011-10-11 11:21

这个最佳答案由 Zipall 给出，感谢 Zipall 的回答。

单击隐藏图章

Private Sub CommandButton1_Click()
On Error GoTo n
For Each sht In Sheets
Set shp = sht.Shapes("Rectangle 11")
MsgBox shp.TextFrame.Characters.Text
Next
Exit Sub
n:
Set shp = sht.Shapes("Rectangle 100")
Resume Next
End Sub

kippon · 发表于 2011-10-11 22:34

提示: 作者被禁止或删除内容自动屏蔽

		自动登录	找回密码
密码			注册

kippon kippon 当前离线积分 367 IP卡狗仔卡	发表于 2011-10-10 21:46 \| 显示全部楼层 \|阅读模式工作中常用的Excel函数公式，全印在一张超大鼠标垫上提示: 作者被禁止或删除内容自动屏蔽
kippon kippon 当前离线积分 367 IP卡狗仔卡
	回复使用道具举报提升卡置顶卡沉默卡喧嚣卡变色卡抢沙发千斤顶显身卡
	工作中最常用的函数公式，全印在一张超大的鼠标垫上

kippon kippon 当前离线积分 367 IP卡狗仔卡	楼主\| 发表于 2011-10-10 22:03 \| 显示全部楼层工作中最常用的Excel函数公式，全印在一张鼠标垫上提示: 作者被禁止或删除内容自动屏蔽
kippon kippon 当前离线积分 367 IP卡狗仔卡
	回复使用道具举报显身卡

kippon kippon 当前离线积分 367 IP卡狗仔卡	楼主\| 发表于 2011-10-11 00:54 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
kippon kippon 当前离线积分 367 IP卡狗仔卡
	回复使用道具举报显身卡

kippon kippon 当前离线积分 367 IP卡狗仔卡	楼主\| 发表于 2011-10-11 22:34 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
kippon kippon 当前离线积分 367 IP卡狗仔卡
	回复使用道具举报显身卡