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

夜的影子

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



代码如下：

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

游客,本付费内容需要支付 3印币 才能浏览支付

    VGCore.ActiveDocument.EndCommandGroup
End Sub

hanlin

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

魔星星

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

夜的影子

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

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

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

夜的影子

麻烦版主，取消销售。

何先生

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

何先生

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

夜的影子

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

我可以一会写一个，免得这个贴丢人了。