忍者ブログ

[PR]

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

VBA  エクセルのコマンドボタンからペイントを起動する


Shell 関数を使い ペイントを起動させる。

Private Sub CommandButton1_Click()

paint = Shell("Mspaint.exe", vbNormalFocus)

End Sub

PR