EXCEL:一次插入一行中的多张图片

时间:2015-09-25 18:08:48

标签: image insert

我正在尝试使用启用宏的按钮在同一行中插入图片。我使用电子表格来处理设施问题,我希望能够在单元格旁边添加这些问题的多张图片,这些图片有问题的文字说明。下面是我目前使用的,这只是将一张图片放在行的G列(本例中的第5行)

Sub ChangeImage()
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .ButtonName = "Submit"
    .Title = "Select an image file"
    .Filters.Clear
    .Filters.Add "JPG", "*.JPG"
    .Filters.Add "JPEG File Interchange Format", "*.JPEG"
    .Filters.Add "Graphics Interchange Format", "*.GIF"
    .Filters.Add "Portable Network Graphics", "*.PNG"
    .Filters.Add "Tag Image File Format", "*.TIFF"
    .Filters.Add "All Pictures", "*.*"

    If .Show = -1 Then
        Dim img As Object
        Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))

        'Scale image size
        'img.ShapeRange.ScaleWidth 0.75, msoFalse, msoScaleFromTopLeft
        'img.ShapeRange.ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft

        'Position Image
        img.Left = Range("G5").Left
        img.Top = Range("G5").Top


        'Set image sizes in points (72 point per inch)
        img.Width = 350
        img.Height = 350
    Else
        MsgBox ("Cancelled.")
    End If
End With
End Sub

我想微距能够意识到已经添加了图片并将下一张图片放在最后上传图片的右上角。

提前谢谢你,

0 个答案:

没有答案