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

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

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

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

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