- 博客(7)
- 收藏
- 关注
RSS订阅原创 cdrvba对选中的图形标号
已实现，对选中形状进行自动编号，前台传入前缀编号NoText。'NSimSun为字体 s.centerY * 2。' 创建艺术字形状，并设置文本内容为数字。' 获取形状的中心坐标。
2024-04-25 07:05:52
146
原创 cdrvba指定控件颜色
mLab.BackColor = RGB(myColor.rgbRed, myColor.rgbGreen, myColor.rgbBlue)‘为lable控件指定背景色。If myColor.UserAssignEx Then‘此功能用于弹出颜色选择界面，便于用户指定颜色值。RefreshColor mCtrl.Name, myColor‘存储cmyk值。myColor.ConvertToRGB‘控件背景色只接受RGB色值指定。myColor.ConvertToCMYK‘转化成CMYK。
2024-04-25 06:40:38
335
原创 cdr VBA获取坐标
While Not b b = ActiveDocument.GetUserClick(x, y, Shift, 10, True, cdrCursorEyeDrop)
2023-08-27 17:44:48
222
原创 cdr VBA复制对象
dim s1 as shape Set s1 = s2.Duplicate 's1 复制对象s2 duplicate 后面可以跟参数
2023-08-27 17:14:25
129
原创 CDR vba对齐
s2.AlignToShape cdrAlignRight, s1, cdrTextAlignBoundingBox‘形状2对齐形状1的右边’ s2.AlignToShape cdrAlignTop, s1, cdrTextAlignBoundingBox‘形状2对齐形状1的顶部’ s2.AlignToShape cdrAlignBottom, s1, cdrTextAlignBoundingBox‘形状2对齐形状1的底部’ s2.AlignToShape cdrAlignL.
2021-12-22 19:24:56
2150
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人