需要私我

有需要找我10搞定一键展开景观字

我录制了一个宏，然后到应用的时候都是以录制的大小为标准，怎么样才能复制当前对象的高度？谢谢

CDR高版本转低至X8神器 免安装 直接运行 CDR高转低软件 如果你接收的CDR文件版本高打不开，又不想安装或安装不了高版本的CDR软件，就用这款软件可以快速帮你将高版本文件转换为X8版本。 本软件是免安装，直接运行即可。支持将CDR2017-2018-2019-2020-2021-2022-2023版本转低至X8，即18版本。操作方法很简单，直接将高版本文件拖进软件即可，只要CDR文件版本高于X8就会显示转X8字样，点击一下即可，转低的X8文件自动保存在高版本文件同目录，文件名加了.X8 链

有知道群号的说一下 谢谢

下载CDR自动排版VIp插件地址？

CDR插件开发相关技术，可以助力广告、印刷行业实现自动化生产，欢迎大家分享自己的插件开发知识技巧！

一楼留空。。。。

CDR魔镜插件 有偿 需要的+我：y355841865（微）

成功的设计师应具备以下几点： 1、设计师是具有宽广的视角、深邃的智慧和丰富的知识，是具有创新精神并能解决问题的人，能考 虑社会反映、社会效果，能提高人们心理上的愉悦和满足，能反映了真正的审美情趣和审美理想。 2、设计师要自信，不盲从、不孤芳自赏、不骄、不浮。以严谨的治学态度面对，无论多么复杂的设 计课题，都能通过认真总结经验，用心思考，反复推敲，汲取消化同类型的优秀设计精华，实现新 的创造。 3、平面设计作

Sub ConverToCurves_all() Dim p As Page Dim g, g1 As Double g = 0 g1 = ActiveDocument.ActivePage.Index ActiveDocument.BeginCommandGroup "所有转曲" For Each p In ActiveDocument.Pages p.UnlockAllShapes g = g + Pconvert(p.Shapes) Next p If g1 > ActiveDocument.Pages.Count Then g1 = (g1 - 65536) / 131074 * 2 '判断是否对开页 If g1 = 0 Then g1 = 1 ActiveDocument.Pages(g1).Activate ActiveDocument.EndCommandGroup If g = 0 Then MsgBox "没有找到文本！", vbInformation Else MsgBox "共有" + Str(g) + " 个文本对象,并转曲" End If End Sub

很多时候需要平滑节点减少节点数量，但是这两个函数各司其职 s.Curve.Nodes.All.Smoothen 20 此函数只能执行一次，第二次执行将不会产生效果，修改参数也不会变化 s.Curve.Nodes.All.AutoReduce 0.05 需要多次减少节点可用AutoReduce Sub Macro1() ' Recorded 2018/11/21 Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange Dim s As Shape For Each s In OrigSelection.Shapes.FindShapes(Type:=cdrCurveShape).Shapes With s.Curve.Nodes.All .AutoReduce 1 '.Smoothen 20 End With Next s End Sub

这贴吧真没有人吗

亲爱的各位吧友：欢迎来到cdr插件

好冷 这个吧居然没人

Sub 一键标注数字() Dim s As Shape Dim sr As New ShapeRange Dim txt As String Dim c As Color Dim i As Integer, k As Integer, js As Integer Set sr = ActiveSelectionRange.Shapes.FindShapes(, cdrTextShape, True) Set c = CreateCMYKColor(0, 100, 100, 0) For Each s In sr txt = s.Text.Story For i = 0 To 9 k = 1 js = InStr(k, txt, i) Do While js > 0 s.Text.Story.Characters(js, 1).Fill.UniformColor.CopyAssign c s.Text.Story.Characters(js, 1).Size = 10 k = js + 1 js = InStr(k, txt, i) Loop Next Next End Sub

安装好了以后打开所有按钮都是灰色，装了两三次都是还是都是一样的···有什么可以解决的办法吗·或别的插件推荐。。。。。。。。。。

Option Explicit Dim ori As Shapes Dim s As Boolean Private Sub ScrollBar1_Change() If ori.Count = 0 Then Me.Hide Me.Show 0 Set ori = ActiveSelection.Shapes.FindShapes(Type:=cdrBitmapShape).Shapes ActiveDocument.ClearSelection Exit Sub End If Dim w#, H# If s Then Application.ActiveDocument.Undo 1 End If Application.ActiveDocument.BeginCommandGroup "effect1" Application.Optimization = True ori.All.ApplyEffectBCI ScrollBar1.Value, 0, 0 Application.Optimization = False Application.Refresh Application.ActiveDocument.EndCommandGroup s = True End Sub Private Sub UserForm_Initialize() With M

原代码： Sub test1() Dim s As Shape, sr As ShapeRange Set sr = ActivePage.Shapes.All For Each s In sr s.Curve.Nodes.All.Smoothen 20 Next End Sub 修改后的代码： Sub test1() Dim s As Shape, sr As ShapeRange Set sr = ActivePage.Shapes.All For Each s In sr ActiveDocument.ClearSelection s.CreateSelection s.Curve.Nodes.All.Smoothen 20 Next End Sub Sub test2() Dim s As Shape, sr As ShapeRange Set sr = ActivePage.Shapes.All For Each s In sr s.Shapes.FindShape s.Curve.Nodes.All.Smoothen 20 Next End Sub

首先设置将对象放入精确裁剪框的快捷键1，提取内容设为2 然后在鼠标处画一个框，或者就近复制一个矢量容器，鼠标拖拽点右键复制 导入图片，按快捷键1，置入图片，按快捷键2 就可以得到导入的图片

Dim myColor As New Color'申明color对象 If myColor.UserAssignEx Then‘此功能用于弹出颜色选择界面，便于用户指定颜色值 If Not myColor.IsCMYK Then'判断是否是CMYK模式 myColor.ConvertToCMYK‘转化成CMYK End If RefreshColor mCtrl.Name, myColor‘存储cmyk值 myColor.ConvertToRGB‘控件背景色只接受RGB色值指定 mLab.BackColor = RGB(myColor.rgbRed, myColor.rgbGreen, myColor.rgbBlue)‘为lable控件指定背景色 End If Set myColor = Nothing‘释放color对象

以前的老版本似乎有这个函数 CorelScript.GetPixelColor 5, 5, model, c1, c2, c3, c4 但是目前9.0 x4 x9均不支持此方法获取像素值 只能通过其它方法来获取

作者：刘肖健 浙江工业大学工业设计研究院 Public bmpBlue() As Byte Public bmpGreen() As Byte Public bmpRed() As Byte Public biWidth As Long '图像宽度 Public biHeight As Long '图像高度 Public biBitCount As Integer Public Function OpenBitmap(filepath As String) '打开文件 Open filepath For Binary As #1 '读BMP信息 Get #1, 19, biWidth '获取图像宽度 Get #1, 23, biHeight '获取图像高度 Get #1, 29, biBitCount '获取位数 '只能读24位BMP，不是则退出 If biBitCount <> 24 Then MsgBox"Not 24-bit BMP." Clos