在VBA复制图像中找到Excel工作表的底部

Question

我想将照片移到单元格的底部，但是它不起作用，请帮帮我吗？

BEGIN :LOAN.NAME := :LOAN.NAME + ' ' + :LOAN.OTHER_NAMES; END;

.Top = Target.Top -> .Bottom = Target.Bottom

谢谢！

---

我要调整列的大小以适合图片，请帮助我

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Or Target.Row = 1 Then Exit Sub
    On Error Resume Next
    Target(, 2).Worksheet.Shapes(Target.Address).Delete
    On Error GoTo Thoat

    Copy_Images Target.Value

    ActiveSheet.PasteSpecial
    With Selection
        .Name = Target.Address
        .Top = Target.Top
        .Left = Target(, 2).Left
        .ShapeRange.LockAspectRatio = msoFalse
        .ShapeRange.Height = Target.Height
        .ShapeRange.Width = Target(, 2).Width
    End With
Thoat:
    Target.Offset(1, 0).Select
End Sub

Private Sub Copy_Images(imageName As String)
    Dim sh As Shape
    For Each sh In Sheets(2).Shapes
        If sh.Name = imageName Then
            sh.Copy
            'Sheets(1).Pictures.Paste
        End If
    Next
End Sub

Answer 1

没有Bottom属性，因此您需要类似

.Top = Target.Top + Target.Height