ligege123321 发表于 2024-2-2 11:49:50

线条表格自动居中码源分享

Excel表格选择性粘贴到CorelDRAW中是不是这样的线条有时候改了文字想居中，是真的麻烦！随便整了下喜欢的看代码自行研究！**** 本内容需购买 ****

kayhom 发表于 2024-2-21 08:08:27

@金帛管理员我这个能退币吗

vipjm 发表于 2024-2-2 12:17:26

有哪位懂代码的，弄成按钮吧，不懂用代码

ligege123321 发表于 2024-2-2 13:42:10

同志们小花花点上谢谢

绿草地 发表于 2024-2-3 09:26:00

收藏起来，思路清楚，代码简洁，学习了。

hanlin 发表于 2024-2-3 09:52:30

是不是宏代码吗？

杰出图文广告 发表于 2024-2-3 10:02:51

精品收藏起来了

fengyelin 发表于 2024-2-3 11:52:25

怎么不上传文本格式也好啊`,

hanlin 发表于 2024-2-3 14:27:02

兄弟我买了，给我发个文本格式的。我直接就能用了，谢谢

张炳清 发表于 2024-2-9 09:32:00

支持一下非常不错的

kayhom 发表于 2024-2-21 08:04:05

付费内容 购买记录
Sub xtbgjz()'加速开启Dim d As DocumentSet d = ActiveDocumentd.Unit = cdrMillimeterd.ReferencePoint = cdrCenterDim sr As ShapeRangeSet sr = ActiveSelectionRangeDim zw As DoubleDim zh As DoubleDim zx As DoubleDim zy As Doublezx = sr.PositionXzy = sr.PositionYzw = sr.SizeWidthzh = sr.SizeHeightDim hxj As ShapeRangeDim sxj As ShapeRangeDim srtemp As ShapeRangeSet srtemp = CreateShapeRangeSet hxj = CreateShapeRangeSet sxj = CreateShapeRangeDim s As ShapeFor Each s In sr.Shapes    If s.SizeWidth < 0.001 Then   sxj.Add s    End If    If   付费后显示这个，这什么东西，请退币
页: [1] 2
查看完整版本: 线条表格自动居中码源分享