摘要：
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)
阅读(283)
评论(0)
推荐(0)
摘要：
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)
阅读(297)
评论(0)
推荐(0)
摘要：
Sub ExportPdf() With ActiveDocument.PDFSettings .PublishRange = 0 ' CdrPDFVBA.pdfWholeDocument .PageRange = "" .Author = "Greg Gutierrez" .Subject = " 阅读全文
posted @ 2021-11-24 09:20
岳帆(SoSo)
阅读(332)
评论(0)
推荐(0)
摘要：
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)
阅读(153)
评论(0)
推荐(0)
摘要：
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)
阅读(205)
评论(0)
推荐(0)
摘要：
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)
阅读(172)
评论(0)
推荐(0)
摘要：
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)
摘要：
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)
阅读(239)
评论(0)
推荐(0)
摘要：
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)
阅读(425)
评论(0)
推荐(0)
摘要：
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)
阅读(220)
评论(0)
推荐(0)
浙公网安备 33010602011771号