[マクロ：画像が挿入されていない箇所の行削除]「画像が挿入されていない行を削除」したいのですが、下記のコードに追記していただくことは可能でしょうか。マクロ初心者で下記のコードはインターネットを参照してます。Sub 画像挿入()Dim i As LongDim insertRow As LongDim shp As ShapeDim leftPos As Double, topPos As DoubleDim totalHeight As DoubleDim colWidth As DoubleWith Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .Filters.Add \u0026quot;画像ファイル\u0026quot;, \u0026quot;*.jpg;*.jpeg;*.png;*.bmp;*.gif\u0026quot; If .Show = -1 Then For i = 1 To .SelectedItems.Count '★ 画像開始行（1, 13, 25...） insertRow = 1 + (i - 1) * 11 '★ 画像挿入位置（本来 \u0026quot;ファイル名の1行下\u0026quot;）→ ファイル名を使わないのでそのまま leftPos = Range(\u0026quot;A\u0026quot; \u0026amp; (insertRow + 1)).Left topPos = Range(\u0026quot;A\u0026quot; \u0026amp; (insertRow + 1)).Top '★ 画像高さ：10行ぶん totalHeight = 0 Dim r As Long For r = insertRow + 1 To insertRow + 10 totalHeight = totalHeight + Rows(r).RowHeight Next r '★ A列の幅 colWidth = Range(\u0026quot;A1\u0026quot;).Width '★ 仮貼り付け Set shp = ActiveSheet.Shapes.AddPicture( _ fileName:=.SelectedItems(i), _ LinkToFile:=msoFalse, _ SaveWithDocument:=msoCTrue, _ Left:=leftPos, _ Top:=topPos, _ Width:=100, Height:=100) '★ 縦横比なし → 枠に完全フィット shp.LockAspectRatio = msoFalse shp.Width = colWidth shp.Height = totalHeight Next i End IfEnd WithEnd Sub