[已解决]如何批量插入图指定顺序排列并且指定图片大小

hsy873399

如何批量插入图指定顺序排列并且指定图片大小，看附件 批量打印.rar (8.21 KB, 下载次数: 59)

2011-12-16 16:44 上传

点击文件名下载附件 ，比如此一次批量插入9张图片。并且图片按照我附件里面表格的样式排列，比如1.jpg,2.jpg,3.jpg,4.jpg,5.jpg,6.jpg,7.jpg,8.jpg,9.jpg插入表格后排列成三排。并且和单元格大小一样。如何编写啊。谢谢朋友们{:011:}

最佳答案

月排行榜 / 总排行榜

Zipall

2011-12-16 17:25

Sub test()
    Dim p As String, r As Integer, c As Integer, i As Integer
    p = ThisWorkbook.Path & "\"
    For r = 2 To 6 Step 2
        For c = 1 To 3
            i = i + 1
            With Cells(r, c)
                Sheets("sheet1").Shapes.AddPicture p & i & ".jpg", False, True, .Left, .Top, .Width, .Height
            End With
        Next
    Next
End Sub

跳转到最佳答案楼层

Zipall

Sub test()
    Dim p As String, r As Integer, c As Integer, i As Integer
    p = ThisWorkbook.Path & "\"
    For r = 2 To 6 Step 2
        For c = 1 To 3
            i = i + 1
            With Cells(r, c)
                Sheets("sheet1").Shapes.AddPicture p & i & ".jpg", False, True, .Left, .Top, .Width, .Height
            End With
        Next
    Next
End Sub