landboy 发表于 2024-8-6 13:07:31

QQ输入发导入自定义短语，方便编写VBA代码







usr=1, ' 物件范围$(CRLF) Dim sr As ShapeRange $(CRLF) Set sr = ActiveSelectionRange
ush=1, Dim sh as shape
ufor=1, ' 遍历 ShapeRange$(CRLF) For Each sh In sr $(CRLF) next sh使用 sr 缩写表示定义物件范围，前面增加一个 u，减少重码，和方便整理

pengkun_3 发表于 2024-8-6 14:33:33

感谢分享，又学到到一招

saisyu 发表于 2024-8-6 14:37:19

很有创意，代码量大确实有用

benleijian 发表于 2024-8-6 16:29:48

方法很有创意，他山之石可以攻玉！不过我一般做一个通用模块，然后其他插件调用就好了。

zengleiyx 发表于 2024-8-7 08:41:41

感谢分享，又学到到一招
页: [1]
查看完整版本: QQ输入发导入自定义短语，方便编写VBA代码