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

yewenji

免费分享 也许有BUG 毕竟是刚学C#，很多都不懂，分享出来供参考测试。
旋转:左右键，自定义方向

粘贴文字:直接粘贴剪切板的内容。
,
宽高相同 和调整尺寸，都加了 鼠标左右键使用。


解压复制文件夹到Addons中：例如："D:\Program Files\Corel\CorelDRAW Graphics Suite X8\Programs64\Addons\批量旋转"
什么版本能用，可以回复一下，用不了，我也没办法,我还是使用VBA比较多。太喜欢VBA快捷键了。

hyaqxb

多谢分享，大佬能做一个文字逆序的插件吗？

WangJun

大佬     这个可以加一个位置交换吗？

ayuan

功能有点少，界面太丑

aysywy

祝你更加完善，实用，简单，便捷。

yang609162876

多谢大佬分享,大佬能做一个常用字体分类插件吗？

今何在

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

嗯？免费的你还要什么自行车？

yewenji

hyaqxb 发表于 2025-1-19 14:49
多谢分享，大佬能做一个文字逆序的插件吗？

别叫大佬，小白新手，菜鸡来的，刚好VBA 有这个功能 ，复制出来合适就用。


Private Sub CommandButton9_Click()

ActiveDocument.BeginCommandGroup

    Dim SR As String, SE As String, i As Integer

    For Each shape In ActiveSelection.Shapes
      
        If shape.Type = cdrTextShape Then
           
            SR = shape.text.Story.text
         
            SE = ""
            For i = Len(SR) To 1 Step -1
                SE = SE & Mid(SR, i, 1)
            Next i
        
            shape.text.Story.text = SE
        Else
         
            Exit Sub
        End If
    Next shape
    ActiveDocument.EndCommandGroup
End Sub

yewenji

WangJun 发表于 2025-1-19 15:37
大佬     这个可以加一个位置交换吗？

用大神，夜漫星空，替换对象，就能互换位置了。

WangJun

yewenji 发表于 2025-1-20 19:09
用大神，夜漫星空，替换对象，就能互换位置了。

大佬 有互换位置的代码吗？求一个