摘要：
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)
阅读(403)
评论(0)
推荐(0)
摘要：
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)
摘要：
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)
摘要：
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)
摘要：
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)
阅读(331)
评论(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)
阅读(152)
评论(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)
阅读(200)
评论(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)
阅读(167)
评论(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)
浙公网安备 33010602011771号