Excel VBA質問箱 IV

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

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


46072 / 76735 ←次へ | 前へ→

【35642】Re:複数の写真ファイルの挿入
お礼  マイホーム  - 06/3/8(水) 21:56 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
>B2、B3セルを参照して画像挿入するサンプルです。
>
>Sub gazou()
> Dim c As Range
> Dim i As Long
> Dim Fmei As String
> Dim MyTop As Single
> Dim MyLeft As Single
> ActiveSheet.DrawingObjects.Delete
> For Each c In ActiveSheet.Range("B2:B3") '参照セルをB2:B3と指定
>  i = i + 1
>  Fmei = "I:\雑誌\" & c.Value & ".jpg"
>  If Dir(Fmei) = "" Then '画像ファイルが存在しない場合
>   MsgBox "指定の画像ファイルは存在しません。" & vbCrLf & "処理を中止します。"
>   Exit Sub
>  Else
>   ActiveSheet.Pictures.Insert(Fmei).Name = "画像" & i
>   With ActiveSheet.Shapes("画像" & i)
>   .LockAspectRatio = msoTrue
>   .Height = 270#
>   If i = 1 Then
>     MyTop = ActiveSheet.Cells(4, 4).Top
>   Else
>     MyTop = ActiveSheet.Shapes("画像" & i - 1).Top + _
>         ActiveSheet.Shapes("画像" & i - 1).Height
>   End If
>   .Top = MyTop
>   End With
>  End If
> Next
>End Sub
おかげさまで、解決しました。
何度も申し訳ありません、
本当に有難うございました。

0 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 お礼

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