夜的影子 发表于 2025-5-8 15:13:09

写了一个很有意思的VBA函数。

就是把选中的对象，颠倒顺序排列，选中一组对象以后，下图由左边变到右边。
初来乍到，挣点印币。



代码如下：

Sub 颠倒顺序()
    VGCore.ActiveDocument.BeginCommandGroup "颠倒顺序"
    Dim userSelect As VGCore.ShapeRange
    Set userSelect = VGCore.ActiveSelectionRange


**** 本内容需购买 ****


    VGCore.ActiveDocument.EndCommandGroup
End Sub


hanlin 发表于 2025-5-8 17:51:19

这个cdr自带这个功能，不需要自己写

魔星星 发表于 2025-5-8 18:07:23

以前没注意， 去找了下还真有这个逆序的功能X8

夜的影子 发表于 2025-5-9 08:45:54

hanlin 发表于 2025-5-8 17:51
这个cdr自带这个功能，不需要自己写

我居然没发现有这个功能。

在菜单下面看到一个创建翻转，不知道是啥意思。

夜的影子 发表于 2025-5-9 10:53:47

麻烦版主，取消销售。

何先生 发表于 2025-5-9 11:26:46

CDR自带的逆序没有反应，下载楼主的代码试下

何先生 发表于 2025-5-9 11:30:01

看错了，还以为是把左右顺充颠倒， 原来是图层上下颠倒，

夜的影子 发表于 2025-5-9 11:36:04

何先生 发表于 2025-5-9 11:30
看错了，还以为是把左右顺充颠倒， 原来是图层上下颠倒，

我可以一会写一个，免得这个贴丢人了。
页: [1]
查看完整版本: 写了一个很有意思的VBA函数。