{"id":1014,"date":"2022-03-31T14:14:00","date_gmt":"2022-03-31T14:14:00","guid":{"rendered":"https:\/\/262235.xyz\/?p=1014"},"modified":"2022-03-31T14:14:00","modified_gmt":"2022-03-31T14:14:00","slug":"1014","status":"publish","type":"post","link":"https:\/\/lyvba.com\/index.php\/2022\/03\/31\/1014\/","title":{"rendered":"CorelDRAW VBA \u7f16\u7a0b\u624b\u518c \u5b66\u4e60\u7b14\u8bb0 – \u51c6\u5907\u628a\u5de5\u4f5c\u7528\u81ea\u52a8\u89d2\u7ebf\u8272\u6807\u5de5\u5177\u79fb\u690d\u5230VBA"},"content":{"rendered":"

\"3470534960.webp\"<\/p>\n

\u5de5\u4f5c\u4e2d\u81ea\u52a8\u89d2\u7ebf\u8272\u9636\u6761\u5de5\u5177\u4f7f\u7528CSC\u811a\u672c\uff0c\u6700\u8fd1\u5728\u5b66VBA\uff0c\u51c6\u5907\u628a\u5de5\u5177\u79fb\u690d\u5347\u7ea7\u3002\u7ecf\u8fc7\u4eca\u5929\u5b66\u4e60\u67e5\u770bCorelDRAW VBA \u7f16\u7a0b\u624b\u518c\u3002
\u5de5\u5177\u4e3b\u9898\u6838\u5fc3\u7a0b\u5e8f\uff0c\u57fa\u672c\u8c03\u8bd5\u5b8c\u6210\uff0c\u6f14\u793a\u548c\u6e90\u7801\u5982\u4e0b\u3002
\"set_page.gif\"<\/p>\n

\u5b9e\u8df5\u5e94\u7528: \u9009\u62e9\u7269\u4ef6\u7fa4\u7ec4,\u9875\u9762\u8bbe\u7f6e\u7269\u4ef6\u5927\u5c0f,\u7269\u4ef6\u9875\u9762\u5c45\u4e2d<\/h2>\n
ActiveDocument.Unit = cdrMillimeter\nDim OrigSelection As ShapeRange, sh As Shape\nSet OrigSelection = ActiveSelectionRange\nSet sh = OrigSelection.Group\n\nMsgBox \"\u9009\u62e9\u7269\u4ef6\u5c3a\u5bf8: \" & sh.SizeWidth & \"x\" & sh.SizeHeight\nActivePage.SetSize Int(sh.SizeWidth + 0.9), Int(sh.SizeHeight + 0.9)\nsh.AlignToPageCenter cdrAlignHCenter + cdrAlignVCenter<\/code><\/pre>\n
\"zhongxian.gif\"<\/p>\n
\u5728\u9875\u9762\u56db\u8fb9\u653e\u7f6e\u4e2d\u7ebf<\/h2>\n
Dim sh As Shape\nSet sh = ActiveDocument.Selection\nsh.AlignToPage cdrAlignHCenter + cdrAlignTop\nsh.Duplicate 0, 0\nsh.Rotate 180\nsh.AlignToPage cdrAlignHCenter + cdrAlignBottom\nsh.Duplicate 0, 0\nsh.Rotate 90\nsh.AlignToPage cdrAlignVCenter + cdrAlignRight\nsh.Duplicate 0, 0\nsh.Rotate 180\nsh.AlignToPage cdrAlignVCenter + cdrAlignLeft<\/code><\/pre>\n
\"jiaoxian.gif\"<\/p>\n
\u5728\u9875\u9762\u56db\u89d2\u653e\u7f6e\u5957\u51c6\u6807\u8bb0\u7ebf<\/h2>\n
Dim sh As Shape\nSet sh = ActiveDocument.Selection\nsh.AlignToPage cdrAlignLeft + cdrAlignTop\nsh.Duplicate 0, 0\nsh.Rotate 180\nsh.AlignToPage cdrAlignRight + cdrAlignBottom\nsh.Duplicate 0, 0\nsh.Flip cdrFlipHorizontal   ' \u7269\u4ef6\u955c\u50cf\nsh.AlignToPage cdrAlignLeft + cdrAlignBottom\nsh.Duplicate 0, 0\nsh.Rotate 180\nsh.AlignToPage cdrAlignRight + cdrAlignTop<\/code><\/pre>\n
CorelDRAW VBA\u7f16\u7a0b\u624b\u518c \u5b66\u4e60\u7b14\u8bb0<\/h1>\n
' \u5728 CorelDRAW \u4e2d\uff0cApplication \u5bf9\u8c61\u662f\u6240\u6709\u5176\u4ed6\u5bf9\u8c61\u7684\u6839\u5bf9\u8c61\u3002\u8981\u4ece\u8fdb\u7a0b\u5916\u63a7\u5236\u5668\u5f15\u7528 CorelDRAW \u5bf9\u8c61\u6a21\u578b\uff0c\u8bf7\u4f7f\u7528\u5176 Application \u5bf9\u8c61\u3002
' \u5c3d\u7ba1\u60a8\u53ef\u4ee5\u5728 VBA \u4e2d\u4f7f\u7528\u4e0a\u8ff0\u4ee3\u7801\uff0c\u4f46 CorelDRAW \u4e0d\u9700\u8981\uff0c\u56e0\u4e3a\u5982\u679c\u672a\u6307\u5b9a\u5176\u4ed6\u6839\u5bf9\u8c61\uff0c\u5219\u9ed8\u8ba4\u4f7f\u7528 Application \u5bf9\u8c61\u3002<\/p>\n
Dim cdr As CorelDRAW.Application\nSet cdr = CreateObject(\"corelDRAW.Application.14\")\n<\/code><\/pre>\n
' Document \u5bf9\u8c61\u3002\u5b83\u8fd8\u5305\u542b\u6240\u6709 Window \u5bf9\u8c61\u3002\u6709\u5173\u8be6\u7ec6\u4fe1\u606f\uff0c\u8bf7\u53c2\u9605\u7b2c 57 \u9875\u4e0a\u7684\u201c\u5904\u7406\u6587\u6863\u201d\u3002
' Document \u5bf9\u8c61\u5305\u542b\u5176\u6240\u6709 Page \u5bf9\u8c61\u7684 Pages \u96c6\u5408\u3002\u6709\u5173\u8be6\u7ec6\u4fe1\u606f\uff0c\u8bf7\u53c2\u9605\u7b2c 67 \u9875\u7684\u201c\u4f7f\u7528\u9875\u9762\u201d\u3002
' \u5355\u4e2a\u9875\u9762\u5bf9\u8c61\u5305\u542b\u6240\u6709\u56fe\u5c42\u5bf9\u8c61\u7684\u56fe\u5c42\u96c6\u5408\u3002\u6709\u5173\u8be6\u7ec6\u4fe1\u606f\uff0c\u8bf7\u53c2\u9605\u7b2c 71 \u9875\u4e0a\u7684\u201c\u4f7f\u7528\u56fe\u5c42\u201d\u3002
' \u6700\u540e\uff0cLayer \u5bf9\u8c61\u5305\u542b\u5176\u6240\u6709 Shape \u5bf9\u8c61\u7684 Shapes \u96c6\u5408\u3002\u6709\u5173\u8be6\u7ec6\u4fe1\u606f\uff0c\u8bf7\u53c2\u9605\u7b2c 73 \u9875\u7684\u201c\u4f7f\u7528\u5f62\u72b6\u201d\u3002
' \u8981\u67e5\u770b CorelDRAW \u5bf9\u8c61\u6a21\u578b\u7684\u56fe\u8868  CorelDRAW VBA Object Model.pdf<\/p>\n
MsgBox \"\u6587\u4ef6\u540d:\" & cdr.ActiveDocument.FileName & \"\u76ee\u5f55:\" & cdr.ActiveDocument.FilePath\nMsgBox \"\u76ee\u5f55\u548c\u6587\u4ef6\u540d:\" & cdr.ActiveDocument.FullFileName\n<\/code><\/pre>\n
' \u6bcf\u5f53\u6253\u5f00 CorelDRAW \u6587\u4ef6\u65f6\uff0c\u90fd\u4f1a\u5728\u8be5\u6587\u6863\u7684 Application \u5bf9\u8c61\u4e2d\u521b\u5efa\u4e00\u4e2a\u65b0\u7684 Document \u5bf9\u8c61\u3002 
Document Member  ' \u63cf\u8ff0
Activate        ' \u6fc0\u6d3b\u7ed9\u5b9a\u6587\u6863 - \u5c06\u5176\u5e26\u5230 CorelDRAW \u4e2d\u7684\u6700\u524d\u9762\u3002 ActiveDocument \u8bbe\u7f6e\u4e3a\u5f15\u7528\u5b83\u3002
ActiveLayer        ' \u8868\u793a\u5728\u5bf9\u8c61\u7ba1\u7406\u5668\u4e2d\u8bbe\u7f6e\u4e3a\u6d3b\u52a8\u7684\u5c42
ActivePage        ' \u8868\u793a\u6587\u6863\u4e2d\u7684\u6d3b\u52a8\u9875\u9762,\u5373\u5728 CorelDRAW \u4e2d\u7f16\u8f91\u7684\u5f53\u524d\u9875\u9762
AddPages AddPagesEx        ' \u5728\u6587\u6863\u672b\u5c3e\u6dfb\u52a0\u9875\u9762
BeginCommandGroup EndCommandGroup    ' \u521b\u5efa\u4e00\u4e2a\u201c\u547d\u4ee4\u7ec4\u201d\uff0c\u5373\u5728\u64a4\u6d88\u5217\u8868\u4e2d\u663e\u793a\u4e3a\u5355\u4e2a\u9879\u76ee\u7684\u4e00\u7cfb\u5217\u64cd\u4f5c
ClearSelection        ' \u6e05\u9664\u6587\u6863\u7684\u9009\u62e9\u4ee5\u53d6\u6d88\u9009\u62e9\u6587\u6863\u4e2d\u7684\u6240\u6709\u5f62\u72b6
Close        ' \u5173\u95ed\u6587\u6863
Export        ' \u4ece\u6587\u6863\u6267\u884c\u7b80\u5355\u5bfc\u51fa
ExportEx    ' \u4ece\u6587\u6863\u6267\u884c\u9ad8\u5ea6\u53ef\u914d\u7f6e\u7684\u5bfc\u51fa
ExportBitmap    ' \u5bfc\u51fa\u5230\u5177\u6709\u5b8c\u5168\u63a7\u5236\u6743\u7684\u4f4d\u56fe
FileName    ' \u83b7\u53d6\u6587\u4ef6\u540d
FilePath    ' \u83b7\u53d6\u6587\u4ef6\u7684\u8def\u5f84
FullFileName    ' \u83b7\u53d6\u6587\u6863\u7684\u5b8c\u6574\u8def\u5f84\u548c\u6587\u4ef6\u540d
GetUserArea        ' \u5141\u8bb8\u60a8\u901a\u8fc7\u5141\u8bb8\u7528\u6237\u62d6\u52a8\u533a\u57df\u6765\u4e3a\u5b8f\u6dfb\u52a0\u4ea4\u4e92\u6027
GetUserClick    ' \u5141\u8bb8\u60a8\u901a\u8fc7\u5141\u8bb8\u7528\u6237\u5355\u51fb\u6765\u5411\u5b8f\u6dfb\u52a0\u4ea4\u4e92\u6027
InsertPages InsertPagesEx    ' \u5c06\u9875\u9762\u63d2\u5165\u5230\u6587\u6863\u4e2d\u7684\u6307\u5b9a\u4f4d\u7f6e
Pages        ' \u63d0\u4f9b\u5bf9 Pages \u96c6\u5408\u7684\u8bbf\u95ee
Printout PrintSettings        ' \u4f7f\u7528\u6587\u6863\u7684\u6253\u5370\u8bbe\u7f6e\u6253\u5370\u6587\u6863
PublishToPDF PDFSettings    ' \u5c06\u6587\u6863\u53d1\u5e03\u4e3a Adobe Acrobat Reader (PDF) \u683c\u5f0f
ReferencePoint        ' \u83b7\u53d6\/\u8bbe\u7f6e\u8bb8\u591a Shape \u51fd\u6570\u4f7f\u7528\u7684\u53c2\u8003\u70b9\uff08\u4f8b\u5982\u7528\u4e8e\u8f6c\u6362\u5f62\u72b6\u6216\u83b7\u53d6\u5f62\u72b6\u4f4d\u7f6e\u7684\u51fd\u6570\uff09
Save        ' \u4f7f\u7528\u5f53\u524d\u6587\u4ef6\u540d\u4fdd\u5b58\u6587\u6863
SaveAs        ' \u5c06\u6587\u6863\u4fdd\u5b58\u4e3a\u65b0\u6587\u4ef6\u540d\u6216\u4f7f\u7528\u65b0\u8bbe\u7f6e
Selection    ' \u5c06\u9009\u62e9\u4f5c\u4e3a\u5f62\u72b6\u83b7\u53d6
SelectionRange    ' \u5c06\u9009\u62e9\u4f5c\u4e3a ShapeRange \u83b7\u53d6
Unit        ' \u8bbe\u7f6e\u83b7\u53d6\u6d4b\u91cf\u503c\u7684\u51fd\u6570\u4f7f\u7528\u7684\u6587\u6863\u5355\u4f4d\uff0c\u4f8b\u5982\u4e0e\u5927\u5c0f\u548c\u4f4d\u7f6e\u76f8\u5173\u7684\u51fd\u6570\u3002 \u8fd9\u4e0e\u6807\u5c3a\u8bbe\u7f6e\u4f7f\u7528\u7684\u5355\u4f4d\u65e0\u5173\u3002
Worldscale    ' \u8fd8\u83b7\u53d6\/\u8bbe\u7f6e\u7ed8\u56fe\u6bd4\u4f8b\u3002 \u8fd9\u4f1a\u6539\u53d8\u6587\u6863\u4e2d\u7684\u503c\uff1b \u4f46\u662f\uff0c\u5b83\u5fc5\u987b\u660e\u786e\u5730\u8ba1\u7b97\u5230\u91c7\u7528\u6d4b\u91cf\u503c\u7684\u51fd\u6570\u4e2d\uff0c\u9ed8\u8ba4\u60c5\u51b5\u4e0b\u4f7f\u7528 1:1\u3002<\/p>\n
' \u5efa\u7acb\u65b0\u6587\u6863\uff0c\u5bfc\u5165CDR\u6587\u4ef6\uff0c\u53e6\u5b58cdr\uff0c\u9ed8\u8ba4\u4fdd\u5b58\u5728\u8f6f\u4ef6\u76ee\u5f55<\/p>\n
Dim d As Document\nSet d = CreateDocument\nd.ActiveLayer.Import \"R:CDX4JXColorMark.cdr\"\nd.SaveAs \"\u5b66\u4e60VBA\u65b0\u6587\u6863.cdr\"\n<\/code><\/pre>\n
' \u83b7\u5f97\u6587\u4ef6\u540d\uff0c\u5173\u95ed\u6587\u4ef6<\/p>\n
MsgBox d.FileName & \"  \u76ee\u5f55: \" & d.FilePath\nf = d.FullFileName\nd.Close\n<\/code><\/pre>\n
' \u6253\u5f00\u6587\u4ef6CDR\u6587\u4ef6\uff0c\u5bfc\u51fa\u56fe\u7247\u548cEPS<\/p>\n
Dim doc As Document\nSet doc = OpenDocument(f)\nActiveDocument.Export \"R:\u5b66\u4e60VBA\u65b0\u6587\u6863.jpg\", cdrJPEG\nActiveDocument.Export \"R:\u5b66\u4e60VBA\u65b0\u6587\u6863.eps\", cdrEPS\n<\/code><\/pre>\n
' \u8c03\u6574\u9875\u9762\u5927\u5c0f\u5e76\u8bbe\u7f6e\u5176\u65b9\u5411<\/p>\n
ActiveDocument.Unit = cdrMillimeter\nActivePage.SetSize 210, 297\nActivePage.Orientation = cdrLandscape\n<\/code><\/pre>\n
' \u8981\u8bbe\u7f6e\u6587\u6863\u7684\u9ed8\u8ba4\u9875\u9762\u5927\u5c0f\uff0c\u8bf7\u8bbe\u7f6e\u6587\u6863\u7684 Pages \u96c6\u5408\u4e2d\u7d22\u5f15\u4e3a 0 \u7684\u9879\u76ee\u7684\u503c\uff1a<\/p>\n
Dim doc As Document\nSet doc = ActiveDocument\ndoc.Unit = cdrMillimeter\ndoc.Pages(0).SetSize 297, 210\n' doc.MasterPage.SetSize 297, 210\n<\/code><\/pre>\n
' \u6216\u4ee5\u4f7f\u7528 Document \u5bf9\u8c61\u7684\u5feb\u6377\u65b9\u5f0f\u5c5e\u6027 MasterPage<\/p>\n
' \u5220\u9664\u9875\u9762<\/p>\n
ActivePage.Delete\nIf ActiveDocument.Pages.Count > 1 Then ActivePage.Delete\n<\/code><\/pre>\n
' \u5efa\u7acb\u56fe\u5c42<\/p>\n
ActivePage.CreateLayer \"\u5200\u6a21\u7ebf\u56fe\u5c42\"\n<\/code><\/pre>\n
' \u6fc0\u6d3b\u56fe\u5c42<\/p>\n
ActivePage.Layers(\"\u5200\u6a21\u7ebf\u56fe\u5c42\").Activate\n<\/code><\/pre>\n
' \u9501\u5b9a\u9690\u85cf\u56fe\u5c42<\/p>\n
ActivePage.Layers(\"\u5200\u6a21\u7ebf\u56fe\u5c42\").Visible = True\nActivePage.Layers(\"\u5200\u6a21\u7ebf\u56fe\u5c42\").Editable = False\n<\/code><\/pre>\n
' \u521b\u5efa\u5f62\u72b6 Creating shapes
\u5f62\u72b6\u5bf9\u8c61\u8868\u793a\u60a8\u4f7f\u7528\u7ed8\u56fe\u5de5\u5177\u5728 CorelDRAW \u6587\u6863\u4e2d\u521b\u5efa\u7684\u5f62\u72b6\u3002\u60a8\u53ef\u4ee5\u521b\u5efa\u7684\u5f62\u72b6\u5305\u62ec\u77e9\u5f62\u3001\u692d\u5706\u3001\u66f2\u7ebf\u548c\u6587\u672c\u5bf9\u8c61\u3002
\u56e0\u4e3a\u6bcf\u4e2a Shape \u5bf9\u8c61\u90fd\u662f Shapes \u96c6\u5408\u7684\u6210\u5458\uff0c\u5b83\u662f Page \u4e0a\u7684\u5176\u4e2d\u4e00\u4e2a Layer \u5bf9\u8c61\u7684\u6210\u5458\uff0c\u6240\u4ee5\u7528\u4e8e\u521b\u5efa\u65b0\u5f62\u72b6\u7684\u65b9\u6cd5\u5c5e\u4e8e Layer \u7c7b\uff0c\u5b83\u4eec\u90fd\u4ee5\u5355\u8bcd Create \u5f00\u5934\u3002<\/p>\n
' \u521b\u5efa\u77e9\u5f62 Creating rectangles
' \u6709\u4e24\u4e2a\u51fd\u6570\u7528\u4e8e\u521b\u5efa\u65b0\u7684\u77e9\u5f62\u5f62\u72b6 - CreateRectangle \u548c CreateRectangle2 - \u8fd9\u4e24\u4e2a\u51fd\u6570\u90fd\u8fd4\u56de\u5bf9\u65b0 Shape \u5bf9\u8c61\u7684\u5f15\u7528\u3002\u8fd9\u4e24\u4e2a\u51fd\u6570\u7684\u4e0d\u540c\u4e4b\u5904\u4ec5\u5728\u4e8e\u5b83\u4eec\u91c7\u7528\u7684\u53c2\u6570\u3002
' \u4f8b\u5982\uff0c\u4ee5\u4e0b\u4ee3\u7801\u4f7f\u7528 CreateRectangle \u521b\u5efa\u4e00\u4e2a\u7b80\u5355\u7684 2\u00d71 \u82f1\u5bf8\u77e9\u5f62(\u6587\u6863\u6709\u8bef\u5b9e\u96453x2)\uff0c\u8be5\u77e9\u5f62\u4f4d\u4e8e\u9875\u9762\u5e95\u90e8\u4e0a\u65b9 6 \u82f1\u5bf8\u548c\u9875\u9762\u5de6\u4fa7 3 \u82f1\u5bf8\u5904\uff1a<\/p>\n
Dim sh As Shape\nActiveDocument.Unit = cdrInch\nSet sh = ActiveLayer.CreateRectangle(3, 7, 6, 5)\n<\/code><\/pre>\n
' \u53c2\u6570\u4ee5\u5de6\u3001\u4e0a\u3001\u53f3\u3001\u4e0b\u7684\u5f62\u5f0f\u7ed9\u51fa\uff0c\u5b83\u4eec\u4ee5\u6587\u6863\u7684\u5355\u4f4d\u8fdb\u884c\u6d4b\u91cf\uff08\u53ef\u4ee5\u5728\u521b\u5efa\u5f62\u72b6\u4e4b\u524d\u660e\u786e\u8bbe\u7f6e\uff09\u3002<\/p>\n
' \u53e6\u4e00\u79cd\u65b9\u6cd5 CreateRectangle2 \u901a\u8fc7\u6307\u5b9a\u77e9\u5f62\u5de6\u4e0b\u89d2\u7684\u5750\u6807\u53ca\u5176\u5bbd\u5ea6\u548c\u9ad8\u5ea6\u6765\u521b\u5efa\u77e9\u5f62\u3002\u4ee5\u4e0b\u4ee3\u7801\u521b\u5efa\u4e0e\u4e0a\u9762\u76f8\u540c\u7684\u77e9\u5f62\uff1a<\/p>\n
Dim sh As Shape\nActiveDocument.Unit = cdrInch\nSet sh = ActiveLayer.CreateRectangle2(3, 6, 2, 1)\n<\/code><\/pre>\n
' \u63d0\u4f9b\u4e86\u66ff\u4ee3\u65b9\u6cd5\u4ee5\u7b80\u5316\u5f00\u53d1\u89e3\u51b3\u65b9\u6848\uff1b\u4ed6\u4eec\u63d0\u4f9b\u76f8\u540c\u7684\u529f\u80fd\u3002<\/p>\n
' \u5706\u89d2\u77e9\u5f62\u4e5f\u53ef\u4ee5\u4f7f\u7528 CreateRectangle \u548c CreateRectangle2 \u65b9\u6cd5\u521b\u5efa\u3002\u8fd9\u4e24\u4e2a\u51fd\u6570\u90fd\u6709\u56db\u4e2a\u53ef\u9009\u53c2\u6570\uff0c\u7528\u4e8e\u5728\u521b\u5efa\u77e9\u5f62\u65f6\u8bbe\u7f6e\u89d2\u7684\u5706\u5ea6\uff0c\u4f46\u8fd9\u4e9b\u503c\u5bf9\u4e8e\u4e24\u4e2a\u51fd\u6570\u7684\u542b\u4e49\u7565\u6709\u4e0d\u540c\u3002
' CreateRectangle \u65b9\u6cd5\u7684\u56db\u4e2a\u53ef\u9009\u53c2\u6570\u91c7\u7528 C \u5230 100 \u8303\u56f4\u5185\u7684\u6574\u6570\u503c\uff08\u9ed8\u8ba4\u503c\u4e3a 0\uff09\u3002
' \u8fd9\u4e9b\u503c\u5c06\u56db\u4e2a\u89d2\u7684\u534a\u5f84\u5b9a\u4e49\u4e3a\u6700\u77ed\u8fb9\u957f\u4e00\u534a\u7684\u6574\u6570\u767e\u5206\u6bd4\u3002\u4ee5\u4e0b\u4ee3\u7801\u91cd\u65b0\u521b\u5efa\u4e86\u4e4b\u524d\u7684 2\u00d71 \u82f1\u5bf8\u77e9\u5f62(\u6587\u6863\u6709\u8bef\u5b9e\u96453x2)\uff0c
' \u4f46\u56db\u4e2a\u89d2\u534a\u5f84\u8bbe\u7f6e\u4e3a\u6700\u77ed\u8fb9\u4e00\u534a\u7684 100%\u300175%\u300150% \u548c 0%\uff1b\u6362\u53e5\u8bdd\u8bf4\uff0c\u534a\u5f84\u5c06\u662f 0.5 \u82f1\u5bf8\u30010.375 \u82f1\u5bf8\u30010.25 \u82f1\u5bf8\u548c\u4e00\u4e2a\u5c16\u89d2\uff1a<\/p>\n
Dim sh As Shape\nActiveDocument.Unit = cdrInch\nSet sh = ActiveLayer.CreateRectangle(3, 7, 6, 5, 100, 75, 50 ,0)\nSet sh = ActiveLayer.CreateRectangle2(3, 7, 6, 5, 1, 1.5, 2, 0)\n<\/code><\/pre>\n
' CreateRectangle2 \u65b9\u6cd5\u4ee5\u76f8\u540c\u7684\u987a\u5e8f\u5b9a\u4e49\u89d2\u534a\u5f84\uff0c\u9664\u4e86\u5b83\u91c7\u7528\u53cc\uff08\u6d6e\u70b9\uff09\u503c\uff0c\u5373\u6587\u6863\u5355\u4f4d\u4e2d\u7684\u534a\u5f84\u6d4b\u91cf\u503c\u3002 <\/p>\n
' \u521b\u5efa\u692d\u5706  Creating ellipses
' \u521b\u5efa\u692d\u5706\u6709\u4e24\u79cd\u65b9\u6cd5\uff1aCreateEllipse \u548c CreateEllipse2\u3002 \u5b83\u4eec\u7684\u53c2\u6570\u4e0d\u540c\uff0c\u56e0\u6b64\u60a8\u53ef\u4ee5\u6839\u636e\u5176\u8fb9\u754c\u6846\u6216\u6839\u636e\u5176\u4e2d\u5fc3\u70b9\u548c\u534a\u5f84\u521b\u5efa\u692d\u5706\u3002 \u8fd9\u4e24\u4e2a\u51fd\u6570\u8fd8\u521b\u5efa\u5f27\u7ebf\u6216\u90e8\u5206\u692d\u5706\uff0c\u6216\u7ebf\u6bb5\u6216\u997c\u56fe\u3002
' CreateEllipse \u65b9\u6cd5\u91c7\u7528\u4e0e CreateRectangle \u76f8\u540c\u7684\u65b9\u5f0f\u5b9a\u4e49\u5176\u8fb9\u754c\u6846\u7684\u56db\u4e2a\u53c2\u6570\u2014\u2014\u6362\u53e5\u8bdd\u8bf4\uff0c\u4ee5\u6587\u6863\u7684\u5355\u4f4d\u4e3a\u5de6\u3001\u4e0a\u3001\u53f3\u3001\u4e0b\u3002 \u4ee5\u4e0b\u4ee3\u7801\u521b\u5efa\u4e00\u4e2a 50 \u6beb\u7c73\u7684\u5706\uff1a<\/p>\n
Dim sh As Shape\nActiveDocument.Unit = cdrMillimeter\nSet sh = ActiveLayer.CreateEllipse(75, 150, 125, 100)\n<\/code><\/pre>\n
' CreateEllipse2 \u65b9\u6cd5\u57fa\u4e8e\u692d\u5706\u7684\u4e2d\u5fc3\u70b9\u4ee5\u53ca\u6c34\u5e73\u548c\u5782\u76f4\u534a\u5f84\u521b\u5efa\u692d\u5706\u3002 \uff08\u5982\u679c\u53ea\u7ed9\u5b9a\u4e00\u4e2a\u534a\u5f84\uff0c\u5219\u521b\u5efa\u4e00\u4e2a\u5706\u3002\uff09\u4ee5\u4e0b\u4ee3\u7801\u521b\u5efa\u4e0e\u4e0a\u8ff0\u4ee3\u7801\u76f8\u540c\u7684 50 \u6beb\u7c73\u5706\uff1a<\/p>\n
Dim sh As Shape\nActiveDocument.Unit = cdrMillimeter\nSet sh = ActiveLayer.CreateEllipse2(100, 125, 25)\n<\/code><\/pre>\n
' \u8981\u521b\u5efa\u692d\u5706\uff0c\u8bf7\u63d0\u4f9b\u7b2c\u4e8c\u4e2a\u534a\u5f84\u3002 \uff08\u7b2c\u4e00\u4e2a\u534a\u5f84\u662f\u6c34\u5e73\u534a\u5f84\uff0c\u7b2c\u4e8c\u4e2a\u662f\u5782\u76f4\u534a\u5f84\u3002\uff09<\/p>\n
Set sh = ActiveLayer.CreateEllipse2(100, 125, 50, 25)\n\n<\/code><\/pre>\n
' \u521b\u5efa\u66f2\u7ebf  Creating curves
' \u66f2\u7ebf\u7531\u5176\u4ed6\u51e0\u4e2a\u5bf9\u8c61\u7ec4\u6210\uff1a\u6bcf\u4e2a Curve \u6709\u4e00\u4e2a\u6216\u591a\u4e2a SubPath \u6210\u5458\u5bf9\u8c61\uff0c\u6bcf\u4e2a SubPath \u6709\u4e00\u4e2a\u6216\u591a\u4e2a Segment \u5bf9\u8c61\uff0c
' \u6bcf\u4e2a Segment \u6709\u4e24\u4e2a Node \u5bf9\u8c61\u4ee5\u53ca\u4e24\u4e2a\u63a7\u5236\u70b9\u4f4d\u7f6e\/\u89d2\u5ea6\u5c5e\u6027\u3002
' \u60a8\u53ef\u4ee5\u4f7f\u7528 CreateCurve \u65b9\u6cd5\u6216 Application \u5bf9\u8c61\u5728 CorelDRAW \u4e2d\u521b\u5efa\u66f2\u7ebf\u5bf9\u8c61\u3002
' \u4f7f\u7528 CreateSubPath \u6210\u5458\u51fd\u6570\u5728 Curve \u5bf9\u8c61\u5185\u521b\u5efa\u4e00\u4e2a\u65b0\u7684 SubPath\u3002\u8fd9\u5c06\u521b\u5efa\u66f2\u7ebf\u7684\u7b2c\u4e00\u4e2a\u8282\u70b9\u3002
' \u63a5\u4e0b\u6765\uff0c\u4f7f\u7528 AppendLineSegment \u548c AppendCurveSegment \u6210\u5458\u51fd\u6570\u5c06\u65b0\u7684\u7ebf\u578b\u6216\u66f2\u7ebf\u578b\u6bb5\u9644\u52a0\u5230\u5b50\u8def\u5f84\u3002
' \u8fd9\u5c06\u6dfb\u52a0\u53e6\u4e00\u4e2a\u8282\u70b9\u5e76\u8bbe\u7f6e\u8be5\u6bb5\u7684\u63a7\u5236\u624b\u67c4\u7684\u4f4d\u7f6e\u3002\u6839\u636e\u9700\u8981\u91cd\u590d\u6b64\u64cd\u4f5c\u4ee5\u6784\u5efa Lip the Curve\u3002
' \u4f7f\u7528 CreateCurve \u6210\u5458\u51fd\u6570\u5728 Layer \u4e0a\u521b\u5efa\u66f2\u7ebf\u5f62\u72b6\u3002
' \u60a8\u53ef\u4ee5\u5411\u66f2\u7ebf\u6dfb\u52a0\u989d\u5916\u7684\u5b50\u8def\u5f84\uff0c\u5e76\u4f7f\u7528\u5b83\u4eec\u81ea\u5df1\u7684\u8282\u70b9\u6784\u5efa\u8fd9\u4e9b\u5634\u5507\u3002\u60a8\u8fd8\u53ef\u4ee5\u901a\u8fc7\u5c06\u66f2\u7ebf\u7684 Closed \u5c5e\u6027\u8bbe\u7f6e\u4e3a True \u6765\u5173\u95ed\u66f2\u7ebf\u3002
' \u4ee5\u4e0b\u4ee3\u7801\u521b\u5efa\u4e86\u4e00\u6761 D \u5f62\u95ed\u5408\u66f2\u7ebf\uff1a<\/p>\n
Dim sh As Shape, spath As SubPath, crv As Curve\nActiveDocument.Unit = cdrCentimeter\nSet crv = Application.CreateCurve(ActiveDocument) ' \u521b\u5efa\u66f2\u7ebf\u5bf9\u8c61\nSet spath = crv.CreateSubPath(6, 6) ' \u521b\u5efa\u4e00\u4e2a\u5b50\u8def\u5f84\nspath.AppendLineSegment 6, 3 ' \u6dfb\u52a0\u77ed\u5782\u76f4\u7ebf\u6bb5\nspath.AppendCurveSegment 3, 0, 2, 270, 2, 0 ' \u4e0b\u66f2\u7ebf\nspath.AppendLineSegment 0, 0 ' \u5e95\u90e8\u76f4\u8fb9\nspath.AppendLineSegment 0, 9 ' \u5de6\u76f4\u8fb9\nspath.AppendLineSegment 3, 9 ' \u9876\u90e8\u76f4\u8fb9\nspath.AppendCurveSegment 6, 6, 2, 0, 2, 90 ' \u4e0a\u66f2\u7ebf\nspath.Closed = True ' \u5173\u95ed\u66f2\u7ebf\nSet sh = ActiveLayer.CreateCurve(crv) ' \u521b\u5efa\u66f2\u7ebf\u5f62\u72b6\n<\/code><\/pre>\n
' \u521b\u5efa\u6587\u672c\u5bf9\u8c61 Creating text objects
' \u6587\u672c\u5bf9\u8c61\u662f\u53e6\u4e00\u79cd\u7c7b\u578b\u7684 Shape \u5bf9\u8c61\u3002\u4f46\u662f\uff0c\u5904\u7406\u6587\u672c\u6bd4\u5904\u7406\u5176\u4ed6\u5f62\u72b6\u66f4\u590d\u6742\u3002<\/p>\n
Dim sh As Shape\nSet sh = ActiveLayer.CreateArtisticText(0, 0, \"Hello World\")\n<\/code><\/pre>\n
' \u9009\u62e9\u5f62\u72b6 Selecting shapes
' \u8981\u786e\u5b9a\u4e00\u4e2a Shape \u662f\u5426\u88ab\u9009\u4e2d\uff0c\u4f60\u53ef\u4ee5\u6d4b\u8bd5\u5b83\u7684 Selected Boolean \u5c5e\u6027\uff1a<\/p>\n
Dim sh As Shape\nSet sh = ActivePage.Shapes(1)\nIf sh.Selected = False Then sh.CreateSelection\n<\/code><\/pre>\n
' \u60a8\u53ea\u9700\u5c06\u5176 Selected \u5c5e\u6027\u8bbe\u7f6e\u4e3a True \u5373\u53ef\u5c06 Shape \u6dfb\u52a0\u5230\u9009\u62e9\u4e2d\uff1b'\u8fd9\u5c06\u9009\u62e9\u5f62\u72b6\u800c\u4e0d\u53d6\u6d88\u9009\u62e9\u6240\u6709\u5176\u4ed6\u5f62\u72b6\u3002<\/p>\n
ActivePage.Shapes(3).Selected = True\n<\/code><\/pre>\n
' \u82e5\u8981\u4ec5\u9009\u62e9\u4e00\u4e2a\u5f62\u72b6\u800c\u4e0d\u9009\u62e9\u4efb\u4f55\u5176\u4ed6\u5f62\u72b6\uff0c\u8bf7\u4f7f\u7528 CreateSelection \u65b9\u6cd5\uff0c\u5982\u524d\u9762\u7684\u4ee3\u7801\u4e2d\u6240\u793a\u3002
' \u8981\u53d6\u6d88\u9009\u62e9\u6240\u6709\u5f62\u72b6\uff0c\u8bf7\u8c03\u7528\u6587\u6863\u7684 ClearSelection \u65b9\u6cd5\uff1a
ActiveDocument.ClearSelection<\/p>\n
' \u8981\u9009\u62e9\u9875\u9762\u6216\u56fe\u5c42\u4e0a\u7684\u6240\u6709\u5f62\u72b6\uff0c\u8bf7\u4f7f\u7528\u4ee5\u4e0b\u4ee3\u7801\uff1a
ActivePage.Shapes.All.CreateSelection<\/p>\n
' \u5f15\u7528 ActiveSelection \u5bf9\u8c61<\/p>\n
Dim sel As Shape\nSet sel = ActiveDocument.Selection\nMsgBox \"\u9009\u62e9\u7269\u4ef6\u5c3a\u5bf8: \" & sel.SizeWidth & \"x\" & sel.SizeHeight\n\n' \u9009\u62e9\u904d\u5386\u591a\u4e2a\u7269\u4ef6\u5bf9\u8c61\nDim sh As Shape, shs As Shapes\nSet shs = ActiveSelection.Shapes\nFor Each sh In shs\n    MsgBox \"\u9009\u62e9\u7269\u4ef6\u5c3a\u5bf8: \" & sh.SizeWidth & \"x\" & sh.SizeHeight\nNext sh\n\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"
\u5de5\u4f5c\u4e2d\u81ea\u52a8\u89d2\u7ebf\u8272\u9636\u6761\u5de5\u5177\u4f7f\u7528CSC\u811a\u672c\uff0c\u6700\u8fd1\u5728\u5b66VBA\uff0c\u51c6\u5907\u628a\u5de5\u5177\u79fb\u690d\u5347\u7ea7\u3002\u7ecf\u8fc7\u4eca\u5929\u5b66\u4e60\u67e5\u770bCore […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10,12],"tags":[67],"class_list":["post-1014","post","type-post","status-publish","format-standard","hentry","category-soft","category-learn","tag-vba"],"_links":{"self":[{"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/posts\/1014","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/comments?post=1014"}],"version-history":[{"count":0,"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/posts\/1014\/revisions"}],"wp:attachment":[{"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/media?parent=1014"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/categories?post=1014"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/tags?post=1014"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}