EXCEL2016 excel2016のマクロで複数枚の画像を指定したcellに

EXCEL2016。excel2016のマクロで複数枚の画像を指定したcellに貼り付ける作業をしたいのですが、色々検索しても自分の条件にぴったりのものが見つかりません。
またexcel初心者なので当然自分で組むこともできず、、、どなたか教えてくれませんか?下記のような順番で画像が貼られるようにしたいです。①コマンドボタン1を押すと画像ファイルを選択する画面に。②選択した画像を貼り付け全60枚③CellG4→CellG13→CellG22→CellG31、CellK4→CellK13→CellK22→CellK31、CellO4→CellO13→CellO22→CellO31、と縦に4枚、横に4個ずらしてまた縦に4枚、計12枚貼り付けたらCellG40→CellG49→CellG58→CellG67、CellK40→CellK49→CellK58→CellK67、CellO40→CellO49→CellO58→CellO67、のように、等間隔に12枚の塊を貼っていくような感じです。④上記の12枚の塊を5つ、計60枚の画像を貼り付けたいです。⑤写真のサイズは4.34×5.42のサイズにしたいです。⑥貼った画像を最背面に移動。以上です。説明雑でわかりにくいかも知れませんが、わかる方いましたら教えてください。
画像を貼る順番が横からになっているので、縦から順番に貼られるようになっていてほしいです、、、画像添付の順番が、CellG4→CellK4→CellO4→CellG13→CellK13→CellO13になっているのですが、CellG4→CellG13→CellG22→CellG31、 CellK4→CellK13→CellK22→CellK31、 CellO4→CellO13→CellO22→CellO31、になりませんか?
⑤写真のサイズは4.34×5.42のサイズにしたいです。サイズの単位がわからないので、ここだけやってありません。該当セルの大きさに合わせて入れてあります。もしかして写真を入れるセルを結合してあるなら知らせて下さい。Sub SampleDim fname As VariantDim shp As ShapeDim i As LongDim rr As Long, cc As LongDim photo As Variantfname = Application.GetOpenFilenameFileFilter:=画像ファイル,*.jpg, MultiSelect:=TrueIf IsArrayfname ThenElseMsgBox キャンセルされましたExit SubEnd IfApplication.ScreenUpdating = False写真を削除For Each shp In ActiveSheet.ShapesIf shp.Type = msoPicture Thenshp.DeleteEnd IfNext shpi = -1For Each photo In fnamei = i + 1rr = Inti / 3 * 9 + 4cc = i Mod 3 * 4 + 7With Cellsrr, ccSet shp = ActiveSheet.Shapes.AddPicturefilename:=photo, _LinkToFile:=False, SaveWithDocument:=True, _Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Heightshp.ZOrder msoSendToBackEnd WithNext photoApplication.ScreenUpdating = TrueEnd Sub
EXCEL2016。複数の画像を挿入するマクロを使用しEXCAELのシートに写真を複数枚貼り付けて資料を作製しております。 今までは13行毎の定間隔で写真を貼り付けるようにレイアウトしていましたが、今回一カ所行を追加した3枚目と4枚目のあいだに2行。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です