插入图片的自动调整问题

dwchung

很实用的内容，我也很需要。多谢分享。

dwchung

不过有一个问题：如果不要的内容行删除后怎样连同其图片链接也同时删除呢？

大街小巷

谢谢分享   
谢谢  

zmj556

如何使用哦，我都没有用得来呀！

jhzghua

如何使用哦，我都没有用得来呀！

kuangben8

好东西学习一下

Archi-li

在楼主xajh_sh  的基础上，我又改了下代码，可以使得图片不锁定比例，直接按选择单元格自适应大小，下面是代码：
Sub 插入的图片根据选择的单元格自动变更大小居中()

Dim M, W1, H1 As String                                                                     '获取图片信息
    M = Selection.ShapeRange.Name
    W1 = Selection.ShapeRange.Width
    H1 = Selection.ShapeRange.Height
Dim D As Range                                                                              '选单元格
   Set D = Application.InputBox(prompt:="请选择插入图片的单元格,然后确定", Type:=8)
Dim L, T, W, H As String                                                                   '获取选择的单元格信息
    L = D.Left
    T = D.Top
    W = D.Width
    H = D.Height
   
   
ActiveSheet.Shapes(M).Select                                                                '重新选择图片
    Selection.ShapeRange.Left = L                                                           '移动图片与选择的单元格左上角重合
    Selection.ShapeRange.Top = T
    Selection.ShapeRange.LockAspectRatio = msofource                                        '使图片不锁定比例
    Selection.ShapeRange.Height = H
    Selection.ShapeRange.Width = W
   
   
With Selection                                                                              '定义图片大小位置随单元格变化而变化
        .Placement = xlMoveAndSize
End With
End Sub

Archi-li

楼主威武，刚发现你的代码有个很大的好处，无论是不是合并单元格都可以让图片自适应大小。  楼主天才。

Archi-li

请教楼主。 如果是合并单元格图片怎么自动适应大小呢？ 急急急！！！

oy66

刚试了一下，感觉还是不会用呢