Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46243 / 76732

←次へ　｜　前へ→


	【35463】複数の写真ファイルの挿入

マイホーム - 06/3/5(日) 14:59 -


	引用なし

	パスワード

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ファイル As String

If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub

ActiveSheet.Shapes("画像1").Delete

ファイル = "I:\雑誌\" & Range("B2").Value & ".jpg"

Range("D4").Select

　　ActiveSheet.Pictures.Insert(ファイル).Select
　　
　　Selection.ShapeRange.LockAspectRatio = msoTrue
　　
　　Selection.ShapeRange.Height = 270#
　　
　　Selection.Name = "画像1"

End　Sub

上記マクロを同じシートに2枚以上の写真ファイルを挿入できるように
編集したいのですが、どのようにすればいいのか教えてください。

6 hits

▼

【35463】複数の写真ファイルの挿入 マイホーム 06/3/5(日) 14:59

≪