在ecxel中插入图片使其自动适应单元格大小，如何利用宏实现？

laierxl8103

要在ecxel中插入很多图片，为了整洁美观，使插入的图片自动适应单元格大小，分辨率不降低。

（有些图片插入第一列，有些插入第二列。根据具体情况插入。）

如何利用宏实现？

我是录制了一个宏。宏的过程是：单击第一列的单元格---插入图片---双击图片---设置图片格式--大小--比例18%--停止。

宏是录下来了，但是再次插入图片到第二列单元格的时候，按“加载宏”之后，不知道该如何操作了？

希望各位大侠指点下。

http://club.excelhome.net/viewthread.php?tid=331780的帖子只能给某一列的用。因为我现在是有些图片插入第一列，有些插入第二列。根据具体情况插入。所以不知道怎么处理了。另外对vba也不懂，不知道如何修改。汗颜！

laierxl8103

刚才忘记截图了。 补上！

masterexcel

楼主可以参考：
http://club.excelhome.net/viewth ... p;page=2#pid3627192

laierxl8103

研究了一下前人的经验。最后加入这个代码了。可以实现了。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub '如果选择一个区域时，退出程序
   Dim cFile$, oShape As Shape, nW, nH '声明变量
    Application.ScreenUpdating = False '禁止屏幕刷新
    Application.EnableEvents = False
    On Error Resume Next
    Set oShape = Me.Shapes("t_" & Target.Address(0, 0))
    If Not oShape Is Nothing Then Exit Sub '如果存在图片时，退出程序
    If ThisWorkbook.Application.Dialogs(342).Show Then '插入图片
        With Selection
            .Name = "t_" & Target.Address(0, 0) '重命名
            nW = Target.Width / .Width '缩放比例
            nH = Target.Height / .Height
            If nW < nH Then '以宽度为标准缩放
                .ShapeRange.IncrementTop (Target.Height - .Height * nW) / 2
                .ShapeRange.ScaleWidth nW, 0, 0
                .ShapeRange.ScaleHeight nW, 0, 0
            Else '以高度为标准缩放
                 .ShapeRange.IncrementLeft (Target.Width - .Width * nH) / 2
                .ShapeRange.ScaleWidth nH, 0, 0
                .ShapeRange.ScaleHeight nH, 0, 0
            End If
        End With
        Target.Activate
    End If
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub


==============================================================

但是如何限定只在B,C两列才是插入图片。 其他的不要加载这个vba？

laierxl8103

感谢轮回大侠！呵呵

summerqz

如何限定只在B,C两列才是插入图片，其它不加载。   这解决了吗

563406396

laierxl8103 发表于 2010-7-15 16:25
研究了一下前人的经验。最后加入这个代码了。可以实现了。

Private Sub Worksheet_SelectionChange(ByVa ...

能帮我看下这个代码怎们改吗
https://club.excelhome.net/thread-1646636-1-1.html