大佬们帮改下代码,当加载第3张图片后,点击单元格图片位置乱跳

tv2531507

Sub 粘贴图片继承单元格大小()
    Dim pic As Shape
    Dim targetRange As Range
    'Dim targetWidth As Double, targetHeight As Double

    ' 设置目标区域
    Set targetRange = ActiveSheet.Range("B3:F3") ' 请根据需要修改区域
    ' 遍历所有形状
    For Each pic In ActiveSheet.Shapes
        ' 检查形状是否是图片
        pic.LockAspectRatio = False
        If pic.Type = msoPicture Then
            ' 调整图片大小以适应目标区域
            pic.Left = pic.TopLeftCell.Left
            pic.Top = pic.TopLeftCell.Top
            pic.Width = pic.TopLeftCell.Width
            pic.Height = pic.TopLeftCell.Height
        End If
    Next pic
End Sub

E F G是插入图片的位置,谢谢高手教育下

liulang0808

楼主这个是调整表格内图片位置及大小的，不存在所谓的加载图片的。
pic.TopLeftCell，楼主具体看看这个单元格情况，