{"id":8522,"date":"2017-06-01T12:45:43","date_gmt":"2017-06-01T03:45:43","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=8522"},"modified":"2017-06-02T16:43:18","modified_gmt":"2017-06-02T07:43:18","slug":"adobe-illustrator%e3%82%92%e6%93%8d%e4%bd%9c%e3%81%99%e3%82%8bvbscript","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=8522","title":{"rendered":"Adobe Illustrator\u3092\u64cd\u4f5c\u3059\u308bVBScript"},"content":{"rendered":"

Acrobat<\/a>\u3068\u540c\u69d8\u306b\u30bf\u30a4\u30d7\u30e9\u30a4\u30d6\u30e9\u30ea\u304c\u7528\u610f\u3055\u308c\u3066\u3044\u308b\u305f\u3081\u3001VBA\u3084VBS\u304b\u3089Illustrator\u3092\u64cd\u4f5c\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n

\u4eca\u56de\u306fIllustrator\u3092\u64cd\u4f5c\u3057\u3066\u65b0\u898f\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u3092\u4f5c\u6210\u3001\u6587\u5b57\u3092\u8ffd\u52a0\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u7d39\u4ecb\u3057\u307e\u3059\u3002<\/p>\n

Option Explicit\r\n\r\nSample\r\n\r\nPublic Sub Sample()\r\n'Illustrator\u306e\u30aa\u30fc\u30c8\u30e1\u30fc\u30b7\u30e7\u30f3\u30c6\u30b9\u30c8\r\n  Dim appAi\r\n  Dim doc\r\n  \r\n  Set appAi = GetIllustratorObject()\r\n  If appAi Is Nothing Then\r\n    MsgBox "Illustrator.Application\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3067\u304d\u307e\u305b\u3093\u3067\u3057\u305f\u3002", vbExclamation + vbSystemModal\r\n    Exit Sub\r\n  End If\r\n  \r\n  With appAi\r\n    Set doc = .Documents.Add\r\n    With doc.TextFrames.Add\r\n      .Top = 300\r\n      .Left = 50\r\n      .TextRange.CharacterAttributes.Size = 28\r\n      .Contents = "Name:" & appAi.Name & vbNewLine & _\r\n                  "Version:" & appAi.Version & vbNewLine & _\r\n                  "Build Number:" & appAi.BuildNumber & vbNewLine & _\r\n                  "Locale:" & appAi.Locale\r\n    End With\r\n  End With\r\nEnd Sub\r\n\r\nPrivate Function GetIllustratorObject()\r\n'Illustrator.Application\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\r\n  Dim obj\r\n  Dim ai_path\r\n  \r\n  Set obj = Nothing: ai_path = "" '\u521d\u671f\u5316\r\n  On Error Resume Next\r\n  Set obj = GetObject(, "Illustrator.Application")\r\n  On Error GoTo 0\r\n  \r\n  'Illustrator\u304c\u8d77\u52d5\u3057\u3066\u3044\u306a\u3044\u5834\u5408\u306fRun\u30e1\u30bd\u30c3\u30c9\u3067\u8d77\u52d5\r\n  If obj Is Nothing Then\r\n    ai_path = GetIllustratorExePath()\r\n    With CreateObject("Scripting.FileSystemObject")\r\n      If .FileExists(ai_path) = True Then\r\n        CreateObject("WScript.Shell").Run """" & ai_path & """", 1, False\r\n        WScript.Sleep 6000 '\u8d77\u52d5\u5f85\u3061\r\n        On Error Resume Next\r\n        Set obj = GetObject(, "Illustrator.Application")\r\n        On Error GoTo 0\r\n      End If\r\n    End With\r\n  End If\r\n  \r\n  Set GetIllustratorObject = obj\r\nEnd Function\r\n\r\nPrivate Function GetIllustratorExePath()\r\n'Illustrator.exe\u306e\u30d1\u30b9\u3092\u53d6\u5f97\r\n  Dim itm\r\n  Dim ret\r\n  Const CSIDL_COMMON_PROGRAMS = 23\r\n  \r\n  '[\u30d7\u30ed\u30b0\u30e9\u30e0]\u306b\u3042\u308b\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30d5\u30a1\u30a4\u30eb\u304b\u3089Illustrator.exe\u306e\u30d1\u30b9\u3092\u53d6\u5f97\r\n  With CreateObject("Shell.Application").Namespace(CSIDL_COMMON_PROGRAMS)\r\n    For Each itm In .Items\r\n      If InStr(LCase(itm.Name), "illustrator") Then\r\n        With CreateObject("WScript.Shell").CreateShortcut(itm.Path)\r\n          ret = .TargetPath\r\n        End With\r\n        Exit For\r\n      End If\r\n    Next\r\n  End With\r\n  GetIllustratorExePath = ret\r\nEnd Function<\/pre>\n
\"\"<\/p>\n
\u4e0a\u8a18\u30b3\u30fc\u30c9\u3092\u898b\u308c\u3070\u5206\u304b\u308b\u901a\u308a\u3001Illustrator.Application\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u53d6\u5f97\u90e8\u5206\u306e\u51e6\u7406\u304c\u5197\u9577\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n
\u901a\u5e38\u3067\u3042\u308c\u3070<\/p>\n
Set appAi = CreateObject("Illustrator.Application")<\/pre>\n
\u3068\u3001Word\u3084Excel\u306e\u3088\u3046\u306b\u3059\u308c\u3070\u554f\u984c\u7121\u3044\u306f\u305a\u3067\u3059\u304c\u3001Illustrator\u306e\u5834\u5408\u306f\u306a\u305c\u304b\u201cIllustrator\u304c\u8d77\u52d5\u3057\u3066\u3044\u308b\u72b6\u614b\u201d<\/span>\u3067\u306a\u3044\u3068\u64cd\u4f5c\u304c\u4e0a\u624b\u304f\u3044\u304d\u307e\u305b\u3093\u3002
\n(\u30a6\u30a3\u30f3\u30c9\u30a6\u304c\u8868\u793a\u3055\u308c\u305a\u3001\u307e\u305f\u3001Visible\u30d7\u30ed\u30d1\u30c6\u30a3\u3082\u8aad\u307f\u53d6\u308a\u5c02\u7528\u3067\u3042\u308b\u305f\u3081\u3001\u64cd\u4f5c\u4e0d\u80fd)<\/p>\n