ペイントの起動について (ID:81911)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 岡田さん 書き込みありがとうございます。 このような感じに書き換えました。 ありがとうございました。 Private Sub cmdDrow_Click() 'お絵かき Dim Ret As Long Dim MyFile As String On Error GoTo err03 MyFile = Chr$(34) & "\MSPAINT.EXE" & Chr$(34) Ret = Shell(MyFile, vbNormalFocus) Exit Sub err03: MsgBox "ペイントソフトが見つかりませんでした。", vbCritical, vbOKOnly Exit Sub End Sub