next 发表于 2025-6-22 17:24:07

今天自己新装了，也出现了这个报错，是对齐那边有问题，更新下内容，把报错的代码删除掉，然后替换成这个
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    OrigSelection.AlignAndDistribute.    *****************
*************的地方保留原来的样式，其他的，报错的我再看看，到时候再更新下
。。。

next 发表于 2025-7-3 09:15:11

找不到工程或库，解决版本：提示报错后，点击调式，然后先保存下


1.找到“工具”菜单下拉；如下图

2. 在“工具”下拉菜单中，选择“引用”弹出以下图

3.在可使用的引用中，注意看类似查找带勾项中含“丢失...”、“找不到...”、“MISSING...”的条目，并取消勾选！

可以解决该报错！

baruny 发表于 2025-7-3 20:24:13

大家有下过的，告知一下能不能用？

putu 发表于 2025-7-25 14:49:20

https://www.52cnp.com/thread-19047-1-1.html
页: 1 [2]
查看完整版本: 自制小工具，gms