アクセサリのペイントを呼び出すには？

質問

ボタンを押したらアクセサリのペイントが自動的に開くようにしたいんですがどうしたらいいのでしょうか？
ど素人質問ですみません＾＾；

回答No.1

noname#4564 · ベストアンサー

Call Shell("Start MsPaint", vbHide)

補足

実行したらファイルが見つかりませんとでますがなぜでしょうか？

回答No.7

noname#4564

#No.6

> ＃１と＃５とちょっとだけ違う回答。vbHideにして良いのかな。

意味わかって書いてる？
vbHideにしてるのはMsPaintじゃなくて、Startの方だよ。

補足

実行したらファイルが見つかりませんとでましたがこれは何かコンポーネントを追加しなくてはいけないのでしょうか？

回答No.6

imogasi

Private Sub CommandButton2_Click()
Call Shell("Start MsPaint" & " " _
& "千鳥格子.bmp", vbNormalFocus)
End Sub
＃１と＃５とちょっとだけ違う回答。vbHideにして
良いのかな。
Private Sub CommandButton2_Click()
Call Shell("pbrush" & " " & "test01.bmp", _
vbNormalFocus)
End Sub
でも動いた。（pbrushとstartの省略）
ペイントで何か絵を描き、test01で保存し、テストしてください。

補足

実行したらファイルが見つかりませんとでますがなぜでしょうか？

回答No.5

bin-chan

質問のジャンルからして、＃１さんの回答が正解でしょう。

１．Visual Basicを起動する。（標準 EXEで「開く」）
２．フォームが表示されてるから「コマンドボタン」を貼り付ける。
３．２．をダブルクリックする。
４．Private Sub Command1_Click()

　　End Sub
　　と表示されるから間の行に＃１さんのコードを貼り付ける。
　　もし、特定のBMPファイル（ここではC:\TEST.BMP)を開きたいなら
　　下記のコードに変える。
あえて空白を分けてあります。パス＋ファイル名は変数にした方が良いでしょう。 　

Private Sub Command1_Click()

　　Call Shell("Start MsPaint" & " " & "c:\test.bmp", vbHide)

End Sub

補足

実行したらファイルが見つかりませんとでますがなぜでしょうか？

回答No.4

noname#3595

スタート　→　アクセサリー　→　ペイント　→

右クリック　→　送る　→　デスクトップでＯＫです。

回答No.3

sai2003

現在スタートボタンから入って　ペイントを起動している、ですよね。
ボタンを押すというのは、ショートカットキーをデスクトップに作るということですよね。
となると、
[スタート]－[すべてのプログラム]－[アクセサリ]　ここまでの手順はペイントのアイコンボタンを表示するのと同じです。
ペイントのアイコンをマウスの右ボタンでドラッグしてデスクトップ上でドロップします。
メニューが出てきて、"ここにコピー”とか　”ショートカットを作成”（WINDOWSのバージョンによって表示が異なる）とかが表示されますので、クリックしましょう。

回答No.2

tatahina

「ペイント」を右クリックしたら「ショートカットの作成（Ｓ）」をクリックすると「ペイント（２）」が出来ますのでそれをデスクトップなど好きなところへドラッグアンドドロップすればいいです。