我正在尝试使用启用宏的按钮在同一行中插入图片。我使用电子表格来处理设施问题,我希望能够在单元格旁边添加这些问题的多张图片,这些图片有问题的文字说明。下面是我目前使用的,这只是将一张图片放在行的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
我想微距能够意识到已经添加了图片并将下一张图片放在最后上传图片的右上角。
提前谢谢你,