H列の画像の下に画像を挿入できるようにしたい

質問

H列の画像の下に画像を挿入できるようにしたいです。
マクロを組んでみたのですが、A列に画像があった場合、
その下に画像が挿入されてしまいます。
H列のみで判断して挿入するにはどうすればよろしいでしょうか。

Sub 改修後写真添付()
Dim FileName As Variant
Dim I, F, endRow As Long
Dim sheetName As String
Dim shp As Shape

sheetName = ActiveSheet.Name
FileName = Application.GetOpenFilename(MultiSelect:=True)

On Error GoTo err_shori

If Range("H5") = "" Then
I = 5
Range("H5").Value = "画像添付"
Else
For Each shp In ActiveSheet.Shapes
endRow = Application.Max(endRow, shp.BottomRightCell.Row)
Next
I = 2 + endRow
End If

For F = 1 To UBound(FileName)

With Sheets(sheetName).Pictures.Insert(FileName(F))
.Top = Range("H" & I).Top
.Left = Range("H" & I).Left
.Width = "170"
.Height = "165"
.Cut
End With

With Sheets(sheetName)
.Range("H" & I).Select
ActiveSheet.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:=False
End With

I = I + 14

Next F

MsgBox UBound(FileName) & "個の画像ファイルが挿入されました。"

Exit Sub

err_shori:

MsgBox "キャンセルされました。"

End Sub

回答No.3

masnoske · ベストアンサー

No.2です．
もしかして，こういう事でしょうか．
以下の部分を
For Each shp In ActiveSheet.Shapes
endRow = Application.Max(endRow, shp.BottomRightCell.Row)
Next

このように変更する．
For Each shp In ActiveSheet.Shapes
If shp.Left = Range("H1").Left Then
endRow = Application.Max(endRow, shp.BottomRightCell.Row)
End If
Next

お礼

ありがとうございます。
大変助かりました。

回答No.4

imogasi

>shp.BottomRightCell.
の対象が、Ｈ列に張り付けられた画像限定になっていないからでしょう（度の列でも対象にしてしまっている）。Ｓｈｐのセルの位置との唯一の関連情報である.TopLeftCell, などがＨ列であで、列がＨ列限定の判別を入れる。
下記例はＢ列で２ですが、Ｈ列では８ですかね。
Dim rng As Range
n = ActiveSheet.Shapes.Count
MsgBox n
For i = 1 To n
With ActiveSheet.Shapes(i)
'Set rng = Range(.TopLeftCell, .BottomRightCell)
Set rng = .TopLeftCell
End With
cl = Split(rng.Address, "$")(1)
If cl = 2 Then
MsgBox rng.Address(False, False)
Else
MsgBox "対象外" & rng.Address(False, False)
End If
Next i
上記もＷＥＢ記事を参考にしてます。
もっとＷＥＢ記事を探す習慣を付けること。
ーー
Ｅｘｃｅｌは画像処理に適したソフトではない。
次々要求が出てもＶＢＡではお手上げでしょう。
もともとエクセルは、操作のソフトなので、マクロの記録を取って勉強するとか（本件のことではないが）。一部は、手動操作を取り入れるとか。もともとシートに貼りつけた画像は手動で動かせるので
それを抑止しておかないといけないし、それはどうするのかな。
TopLeftCellというのが、設けられているが、小生は、今まで
注目してこなかった（勉強が狭かった）。

お礼

ありがとうございます。
まだまだ初心者のため、勉強していきます。

回答No.2

masnoske

言葉だと状況ががわかりません。
画像を貼ってください。

回答No.1

masnoske

私の環境では問題なく H列に追加されます．
Win10 + Office2013

質問者の環境を開示されたほうが良いと思います．

補足

環境はWin7+Office2010です。

言葉足らずでしたので補足いたします。
H列に挿入はできるのですが
別の列に画像等があった場合、その画像を認識していまい
スキップしてH列に画像が挿入されてしまいます。
（ちどり配置になってしまう）

シート全体を認識しているのが問題だと思うので
H列のみ認識するようにするにはどうすればよいでしょうか。