11 2021 档案

【CorelDraw VBA 013例】创建圆角矩形轮廓
摘要：Sub CreateSign() '##创建圆角矩形轮廓 Dim s As Shape Dim sFirstContour As Shape, sSecondContour As Shape Dim srContours As New ShapeRange ActiveDocument.Unit = 阅读全文
posted @ 2021-11-25 14:24 岳帆(SoSo) 阅读(402) 评论(0) 推荐(0)
【CorelDraw VBA 012例】创建并提取轮廓
摘要：Sub CreateContour() '##创建并提取轮廓 Dim rect As Shape Dim cSr As ShapeRange Set rect = ActiveShape ActiveDocument.Unit = 3 Set e = rect.CreateContour(cdrCo 阅读全文
posted @ 2021-11-25 11:46 岳帆(SoSo) 阅读(533) 评论(0) 推荐(0)
【CorelDraw VBA 011例】创建B样条
摘要：Sub mCreateBSpline() '##创建B样条 ' Recorded 2021/8/21 星期六 Dim bs As BSpline Dim sh As Shape Dim Kg As Boolean Set sh = ActiveShape Set bs = ActiveDocumen 阅读全文
posted @ 2021-11-25 09:02 岳帆(SoSo) 阅读(174) 评论(0) 推荐(0)
【CorelDraw VBA 010例】位图转CMYK
摘要：Sub BitmapsToCMYK() '## 位图转CMYK Dim s As Shape For Each s In ActivePage.Shapes.FindShapes(Type:=cdrBitmapShape) If s.Bitmap.Mode <> cdrCMYKColorImage 阅读全文
posted @ 2021-11-24 09:23 岳帆(SoSo) 阅读(276) 评论(0) 推荐(0)
【CorelDraw VBA 009例】调整透明度
摘要：Sub MakeLayerTransparent() '##透明度 Dim s As Shape Set s = ActiveLayer.Shapes.All.Group s.Transparency.ApplyUniformTransparency 50 End Sub 阅读全文
posted @ 2021-11-24 09:21 岳帆(SoSo) 阅读(296) 评论(0) 推荐(0)
【CorelDraw VBA 008例】导出到PDF
摘要：Sub ExportPdf() With ActiveDocument.PDFSettings .PublishRange = 0 ' CdrPDFVBA.pdfWholeDocument .PageRange = "" .Author = "Greg Gutierrez" .Subject = " 阅读全文
posted @ 2021-11-24 09:20 岳帆(SoSo) 阅读(331) 评论(0) 推荐(0)
【CorelDraw VBA 007例】旋转到参考点对象
摘要：Sub RotEach() '##旋转到参考点对象 Dim s As Shape Dim x As Double Dim y As Double Dim ro As Double ActiveDocument.Unit = cdrMillimeter ActiveDocument.DrawingOr 阅读全文
posted @ 2021-11-24 09:17 岳帆(SoSo) 阅读(152) 评论(0) 推荐(0)
【CorelDraw VBA 006例】 在指定段落中查找字体
摘要：Private Sub FindFontsInRange(ByVal tr As TextRange, ByVal col As Collection) '##查找字体 Dim FontName As String Dim trBefore As TextRange, trAfter As Text 阅读全文
posted @ 2021-11-24 09:11 岳帆(SoSo) 阅读(200) 评论(0) 推荐(0)
【CorelDraw VBA 005例】 列出文档中的字体
摘要：Sub ListDocumentFonts() '##列出文档中的字体 Dim p As Page Dim s As Shape Dim col As New Collection Dim sFontList As String Dim vFont As Variant For Each p In 阅读全文
posted @ 2021-11-24 08:53 岳帆(SoSo) 阅读(167) 评论(0) 推荐(0)
【CorelDraw VBA 004例】 在指定的页面中查找字体
摘要：Private Sub FindTextOnPage(sFont$) '##查找字体 Dim sr As ShapeRange, s As Shape, sRect As Shape Dim x#, y#, w#, h#, cc& Set sr = ActivePage.Shapes.FindSha 阅读全文
posted @ 2021-11-24 08:52 岳帆(SoSo) 阅读(285) 评论(0) 推荐(0)
【CorelDraw VBA 003例】 利用虚拟图形创建形状
摘要：Sub CreateMyVirtualCurve() '##利用虚拟图形创建形状 Dim s As Shape, crv As Curve Dim x As Double, y As Double Dim arrPoints(9, 1) As Double arrPoints(0, 0) = 162 阅读全文
posted @ 2021-11-24 08:49 岳帆(SoSo) 阅读(235) 评论(0) 推荐(0)
【CorelDraw VBA 002例】 断开节点 随机填充颜色
摘要：Sub BreakApartNode() '##断开节点 随机填充颜色 Dim s As Shape, sr As ShapeRange, sp As SubPath, nr As NodeRange Set sr = ActivePage.Shapes.FindShapes() Dim srBro 阅读全文
posted @ 2021-11-24 08:47 岳帆(SoSo) 阅读(416) 评论(0) 推荐(0)
【CorelDraw VBA 001例】 缩放到选定节点
摘要：Sub ZoomToNodes() '##缩放到选定节点 Dim nr As NodeRange Dim x As Double, y As Double, w As Double, h As Double Set nr = ActiveShape.Curve.Selection nr.GetBou 阅读全文
posted @ 2021-11-24 08:40 岳帆(SoSo) 阅读(218) 评论(0) 推荐(0)