前提・実現したいこと
画像3枚ごとに(3枚目~4枚目)・(6枚目~7枚目)の間隔を1枚目~3枚目と変更したいと考えておりますが、うまくできません。
御教授頂けると幸いです。
発生調べたコード
Sub 画像を挿入()
Dim myDataCnt As Long
Dim myNo As Long
Dim i As Long
Dim myRow As Long
Dim myName As String
myDataCnt = Worksheets("picture").Range("A1").End(xlDown).Row myNo = 1 myRow = 3 Worksheets("写真報告書").Select Do Until myNo > myDataCnt myName = Worksheets("picture").Cells(myNo, 1).Value Cells(myRow, 6).Select ActiveSheet.Pictures.Insert(myName).Select Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 323.3 Selection.ShapeRange.Width = 362.8 ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), _ Address:=myName myRow = myRow + 12.3 myNo = myNo + 1 Loop
End Sub
補足情報(FW/ツールのバージョンなど)
Excel 2016/2013
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。