VBA エクセルのコマンドボタンからペイントを起動する Shell 関数を使い ペイントを起動させる。Private Sub CommandButton1_Click()paint = Shell("Mspaint.exe", vbNormalFocus)End Sub PR