Excel VBA質問箱 IV

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

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


46137 / 76732 ←次へ | 前へ→

【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のセルに写真のファイル名を入れて、
同じシートの適当なところに表示(挿入)したいのです。
本当に申し訳ありませんが、教えて頂きませんか?

10 hits

【35463】複数の写真ファイルの挿入 マイホーム 06/3/5(日) 14:59 質問
【35473】Re:複数の写真ファイルの挿入 ぱっせんじゃー 06/3/6(月) 10:40 発言
【35475】Re:複数の写真ファイルの挿入 ぱっせんじゃー 06/3/6(月) 13:39 発言
【35500】ぱっせんじゃーさんへ マイホーム 06/3/6(月) 22:24 質問
【35529】Re:複数の写真ファイルの挿入 Kein 06/3/7(火) 14:06 回答
【35573】Re:複数の写真ファイルの挿入 マイホーム 06/3/7(火) 21:32 質問
【35581】Re:複数の写真ファイルの挿入 ぱっせんじゃー 06/3/8(水) 7:56 発言
【35584】Re:複数の写真ファイルの挿入 ぱっせんじゃー 06/3/8(水) 8:23 発言
【35642】Re:複数の写真ファイルの挿入 マイホーム 06/3/8(水) 21:56 お礼
【35603】Re:複数の写真ファイルの挿入 Kein 06/3/8(水) 13:46 発言
【35643】Re:複数の写真ファイルの挿入 マイホーム 06/3/8(水) 21:59 お礼

46137 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free