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

landboy

CorelDRAW_VBA自定义短语.zip (667 Bytes)

2024-8-6 13:05 上传

点击文件名下载附件

1. usr=1, ' 物件范围$(CRLF) Dim sr As ShapeRange $(CRLF) Set sr = ActiveSelectionRange
   
2. ush=1, Dim sh as shape
   
3. ufor=1, ' 遍历 ShapeRange$(CRLF) For Each sh In sr $(CRLF) next sh

复制代码

使用 sr 缩写表示定义物件范围，前面增加一个 u，减少重码，和方便整理

pengkun_3

感谢分享，又学到到一招

saisyu

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

benleijian

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

zengleiyx

感谢分享，又学到到一招