Excel中利用宏使在一个单元格输入内容后自动插入图片,关键是怎么把插入的图片缩小点

发布网友 发布时间：2022-05-07 09:41

我来回答

共1个回答

热心网友 时间：2023-10-24 10:00

略作调整，您试试看：

将图片的位置和图片的宽度、高度作了调整。

如果需要将图片调的更小，可以将数字调大一些即可。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        sfileName = ThisWorkbook.Path & "\" & Target.Value & ".jpg"
        On Error GoTo err01
        With Target.Offset(0, 1)
            Shapes.AddPicture(sfileName, True, True, .Left + 1, .Top + 1, .Width - 2, .Height - 2).Select '位置和图片的宽度、高度作了调整
            Selection.Placement = xlMoveAndSize
        End With
    End If
    Cells(1, 1).Select
    Exit Sub
err01:
    If Err.Number = 1004 Then MsgBox "当前目录下没有名称为:" & Target.Value & ".jpg,的图片"
End Sub

热心网友 时间：2023-10-24 10:00

略作调整，您试试看：

将图片的位置和图片的宽度、高度作了调整。

如果需要将图片调的更小，可以将数字调大一些即可。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        sfileName = ThisWorkbook.Path & "\" & Target.Value & ".jpg"
        On Error GoTo err01
        With Target.Offset(0, 1)
            Shapes.AddPicture(sfileName, True, True, .Left + 1, .Top + 1, .Width - 2, .Height - 2).Select '位置和图片的宽度、高度作了调整
            Selection.Placement = xlMoveAndSize
        End With
    End If
    Cells(1, 1).Select
    Exit Sub
err01:
    If Err.Number = 1004 Then MsgBox "当前目录下没有名称为:" & Target.Value & ".jpg,的图片"
End Sub

热心网友 时间：2023-10-24 10:00

略作调整，您试试看：

将图片的位置和图片的宽度、高度作了调整。

如果需要将图片调的更小，可以将数字调大一些即可。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        sfileName = ThisWorkbook.Path & "\" & Target.Value & ".jpg"
        On Error GoTo err01
        With Target.Offset(0, 1)
            Shapes.AddPicture(sfileName, True, True, .Left + 1, .Top + 1, .Width - 2, .Height - 2).Select '位置和图片的宽度、高度作了调整
            Selection.Placement = xlMoveAndSize
        End With
    End If
    Cells(1, 1).Select
    Exit Sub
err01:
    If Err.Number = 1004 Then MsgBox "当前目录下没有名称为:" & Target.Value & ".jpg,的图片"
End Sub