批量旋转 批量尺寸 宽高相同 表格粘贴 免费分享

yewenji

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

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

Private Sub CommandButton13_Click()

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

snihwfn

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

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

samupday

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

yewenji

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

violence

楼主自己制作的？