设为首页
收藏本站
周一至周五 : 08:30 - 17:30
客服专员电话/微信:17301649371 QQ:2627049059
微信咨询
扫码微信咨询
关注公众号
关注微信公众号
帮助中心
意见反馈
会员条款
联系客服
登陆
注册
首页
Portal
软件产品
方案案例
下载演示
教程视频
在线帮助文档、在线视频教程
模板商城
论坛
快表用户设计交流
服务价格
新闻动态
关于
电话:
021 5161 9370
获取报价
本版
帖子
用户
个人中心
我的收藏
私信列表
消息中心
搜索全站
扫码关注微信公众号
微信咨询客服
返回顶部
更新日志
在线帮助
视频教程
功能对比
价格中心
遍历Shape对象
hessen
显示全部楼层
正序浏览
发表日期
2017-12-14 22:53:20
2797
次阅读
2
次回复
2
收藏
QQ好友和群
QQ空间
淘贴
分享
阅读排行
[老张出品]自行注册用户模板
[老张出品]人事工资管理系统 V1.0
快递登记与查询模板
4
[老张出品]客户管理信息系统 V1.0
5
实用精简客户信息表
6
使用表间公式进行跨多表行列匹配
7
[老张出品] 车辆管理系统 V1.0 (免费版)
8
物料清单模板
9
[老张出品] 设备管理
10
快表程序下载
返回列表
快表软件
›
阶段三:快表扩展
›
命令树与快表VBA
遍历Shape对象
楼主
hessen
2017-12-14 22:53:20
显示全部楼层
Dim s As SpreadsheetGear.Shapes.IShape
If e.Shape.Name = "Button 7" Then
For Each s In ActiveWorkbook.ActiveWorksheet.Shapes
MessageBox.Show(s.TextFrame.Characters.Text)
Next
End If
复制代码
电话/微信:18049989370 QQ:857188287
回复
举报
快表帝国客服01
2024-9-19 16:22:33
显示全部楼层
沙发
If e.Shape.Name = "Button 9" Then
For Each s In ActiveWorkbook.ActiveWorksheet.Shapes
If Left(s.TextFrame.Characters.Text, 6) <> "Button" Then
s.Delete()
End If
Next
End If
复制代码
回复
支持
反对
举报
精彩评论
2
快表帝国客服01
2024-9-19 16:22:33
显示全部楼层
沙发
If e.Shape.Name = "Button 9" Then
For Each s In ActiveWorkbook.ActiveWorksheet.Shapes
If Left(s.TextFrame.Characters.Text, 6) <> "Button" Then
s.Delete()
End If
Next
End If
复制代码
回复
支持
反对
举报
发布主题
返回列表
高级模式
B
Color
Image
Link
Quote
Code
Smilies
您需要登录后才可以回帖
登录
|
立即注册
本版积分规则
发表回复
允许回帖邮件提醒楼主
回帖并转播
返回顶部
返回列表
hessen