Excel VBA質問箱 IV

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

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


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

46140 / 76735

←次へ　｜　前へ→


	【35573】Re:複数の写真ファイルの挿入

マイホーム - 06/3/7(火) 21:32 -


	引用なし

	パスワード

▼Kein さん：
>例えば D4 以下に「6行・3列の大きさ」で「1行空白をおいて」画像を挿入していく、
>というコードなら
>
>Sub Pic_Ins()
>　 Dim MyF As String
>　 Dim xR As Long
>　 Dim Lp As Single, Tp As Single
>　 Dim Wp As Single, Hp As Single
>　
>　 ChDir "C:\Documents and Settings\User" & _
>　 "\My Documents\My Pictures\画像資料"
>　 With Application
>　　　MyF = .GetOpenFilename("画像ファイル(*.jpg),*.jpg")
>　　　If MyF = "False" Then GoTo ELine
>　　　.ScreenUpdating = False
>　 End With
>　 With ActiveSheet
>　　　If .Pictures.Count = 0 Then
>　　　　 xR = 4
>　　　Else
>　　　　 xR = .Pictures.Count * 7 + 4
>　　　End If
>　　　With .Cells(xR, 4).Resize(6, 3)
>　　　　 Lp = .Left: Tp = .Top
>　　　　 Wp = .Width: Hp = .Height
>　　　End With
>　　　With .Pictures.Insert(MyF)
>　　　　 .Left = Lp: .Top = Tp
>　　　　 .Width = Wp: .Height = Hp
>　　　End With
>　 End With
>ELine:
>　 With Application
>　　　ChDir .DefaultFilePath
>　　　.ScreenUpdating = True
>　 End With
>End Sub
>
>などとします。
>どんなコードにするにせよ、ファイルのパスは正確に入力しなくてはならないのだから、
>手入力を止めてダイアログから選ぶやり方の方が、確実と思います。
すみません、せっかく答えて頂いたのに
素人なのでよくわかりません。
具体的に、B2とB3のセルに写真のファイル名を入れて、
同じシートの適当なところに表示(挿入)したいのです。
本当に申し訳ありませんが、教えて頂きませんか？

0 hits

▼

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