エクセルで画像を複数選択し決まった間隔で貼り付けし、大きさも 統合したセルの大きさになるマクロを探していたのですが、 昔の知恵袋でいい感じのマクロを見つけたのですが張り付けた画像が横に 並んでいくのですが、縦に並べるようにはできないのでしょうか？ 私は知識がぜんぜんなくて何処をいじればいいのかがわかりません 知識ある方教えて貰えないでしょうか？ 昔の知恵袋のマクロ↓ Sub 画像一括挿入マクロ() Const cSP As Long = 5 '次の貼付け先セルとの空白列数★ Dim i As Long Dim FileName As Variant Dim dblscal As Double FileName = Application.GetOpenFilename( _ filefilter:="画像ファイル,*.bmp;*.jpg;*.gif;*.JPG", _ MultiSelect:=True) Dim iNp As Range On Error Resume Next Set iNp = Application.InputBox( _ prompt:="マウスで開始セルを選択してください", _ Title:="開始セルを選択", _ Default:="マウスで開始セルを選択する", _ Type:=8) ''←メッセージボックスで開始セルを選択させる If Err.Number <> 0 Then MsgBox "キャンセルしました。" End If Set iNp = iNp.MergeArea For i = LBound(FileName) To UBound(FileName) iNp.Select With ActiveSheet.Shapes.AddPicture( _ FileName:=FileName(i), _ linktofile:=False, _ savewithdocument:=True, _ Left:=Selection.Left, _ Top:=Selection.Top, _ Width:=0, _ Height:=0) .ScaleHeight 1, msoTrue .ScaleWidth 1, msoTrue If iNp.Width / .Width < iNp.Height / .Height Then dblscal = WorksheetFunction.RoundDown(iNp.Width / .Width, 2) Else dblscal = WorksheetFunction.RoundDown(iNp.Height / .Height, 2) End If .Width = .Width * dblscal * 0.97 .Height = .Height * dblscal * 0.97 .Left = .Left + (iNp.Width - .Width) / 2 .Top = .Top + (iNp.Height - .Height) / 2 End With Set iNp = iNp.Offset(, cSP + 1).MergeArea Next i End Sub
