版块 › CorelDRAW专区 › 批量旋转 批量尺寸 宽高相同 表格粘贴 免费分享

yewenji 发表于 2025-1-20 22:10:59

WangJun 发表于 2025-1-20 21:40
大佬 有互换位置的代码吗？求一个

2个对象互换位置的，你看合不合适了，不合适自己想办法改了

Private Sub CommandButton13_Click()
    Dim S1 As shape, S2 As shape
    Set S1 = ActiveSelection.Shapes(1)
    Set S2 = ActiveSelection.Shapes(2)

    Dim P1X As Double, P1Y As Double
    P1X = S1.PositionX
    P1Y = S1.PositionY

    Dim P2X As Double, P2Y As Double
    P2X = S2.PositionX
    P2Y = S2.PositionY

    S1.Move P2X - P1X, P2Y - P1Y
    S2.Move P1X - P2X, P1Y - P2Y
End Sub

WangJun 发表于 2025-1-20 22:33:43

yewenji 发表于 2025-1-20 22:10
2个对象互换位置的，你看合不合适了，不合适自己想办法改了

Private Sub CommandButton13_Click()


可以使用感谢大佬送您一朵小花花

snihwfn 发表于 2025-1-21 10:25:44

ayuan 发表于 2025-1-19 16:42
功能有点少，界面太丑

人家都低调说了，初学C#,还免费分享的，你还要什么自行车呢。:L

samupday 发表于 2025-1-22 10:03:05

怎么X6不能用这个这么好的插件？打开X6直接闪退，能否做个X6能用的？

yewenji 发表于 2025-1-22 19:08:44

是不是X7-24版本能用，测试过的朋友，回复一下，那些版本是可以用的。

violence 发表于 2025-1-30 11:45:20

楼主自己制作的？

查看完整版本: 批量旋转 批量尺寸 宽高相同 表格粘贴 免费分享