ここから本文です

excel2016のマクロで複数枚の画像を指定したcellに貼り付ける作業をしたいのですが...

tk0********さん

2017/6/610:28:40

excel2016のマクロで複数枚の画像を指定したcellに貼り付ける作業をしたいのですが、色々検索しても
自分の条件にぴったりのものが見つかりません。

またexcel初心者なので当然自分で組むこともできず、、、どなたか教えてくれませんか?
下記のような順番で画像が貼られるようにしたいです。

①コマンドボタン1を押すと画像ファイルを選択する画面に。

②選択した画像を貼り付け(全60枚)

③Cell(G4)→Cell(G13)→Cell(G22)→Cell(G31)、
Cell(K4)→Cell(K13)→Cell(K22)→Cell(K31)、
Cell(O4)→Cell(O13)→Cell(O22)→Cell(O31)、
と縦に4枚、横に4個ずらしてまた縦に4枚、計12枚貼り付けたら
Cell(G40)→Cell(G49)→Cell(G58)→Cell(G67)、
Cell(K40)→Cell(K49)→Cell(K58)→Cell(K67)、
Cell(O40)→Cell(O49)→Cell(O58)→Cell(O67)、
のように、等間隔に12枚の塊を貼っていくような感じです。

④上記の12枚の塊を5つ、計60枚の画像を貼り付けたいです。

⑤写真のサイズは4.34×5.42のサイズにしたいです。

⑥貼った画像を最背面に移動。

以上です。
説明雑でわかりにくいかも知れませんが、わかる方いましたら教えてください。

補足画像を貼る順番が横からになっているので、縦から順番に貼られるようになっていてほしいです、、、

閲覧数:
121
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

kky********さん

2017/6/613:48:28

⑤写真のサイズは4.34×5.42のサイズにしたいです。
サイズの単位がわからないので、ここだけやってありません。
該当セルの大きさに合わせて入れてあります。
もしかして写真を入れるセルを結合してあるなら知らせて下さい。

Sub Sample()
Dim fname As Variant
Dim shp As Shape
Dim i As Long
Dim rr As Long, cc As Long
Dim photo As Variant
fname = Application.GetOpenFilename(FileFilter:="画像ファイル,*.jpg", MultiSelect:=True)
If IsArray(fname) Then
Else
MsgBox "キャンセルされました"
Exit Sub
End If
Application.ScreenUpdating = False
'写真を削除
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then
shp.Delete
End If
Next shp
i = -1
For Each photo In fname
i = i + 1
rr = Int(i / 3) * 9 + 4
cc = (i Mod 3) * 4 + 7
With Cells(rr, cc)
Set shp = ActiveSheet.Shapes.AddPicture(filename:=photo, _
LinkToFile:=False, SaveWithDocument:=True, _
Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
shp.ZOrder msoSendToBack
End With
Next photo
Application.ScreenUpdating = True
End Sub

  • 質問者

    tk0********さん

    2017/6/616:39:22

    画像添付の順番が、Cell(G4)→Cell(K4)→Cell(O4)
    →Cell(G13)→Cell(K13)→Cell(O13)
    になっているのですが、
    Cell(G4)→Cell(G13)→Cell(G22)→Cell(G31)、
    Cell(K4)→Cell(K13)→Cell(K22)→Cell(K31)、
    Cell(O4)→Cell(O13)→Cell(O22)→Cell(O31)、
    になりませんか?

  • その他の返信(2件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる