[已解决]双击图片自动适应所在单元格大小

pigtange

请教各位大虾：

已导入的图片，如何双击图片自动适应所在单元格大小？

理解的过程大致如下：
双击图片，取得所在单元格地址，
获得单元格宽、高数值，
将数值分别赋值给当前图片宽、高，
将图片对齐单元格，
退出。


在此求助，不胜感激！
可在附件里编写。

最佳答案

月排行榜 / 总排行榜

hysys32

2015-10-17 22:38

Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim pic As Shape
    For Each pic In ActiveSheet.Shapes
        If Not Application.Intersect(Range(pic.TopLeftCell.Address, pic.BottomRightCell.Address), Target) Is Nothing Then
            With pic
                .LockAspectRatio = 0
                .Left = Target.Left + 2.5
                .Top = Target.Top + 2.5
                .Height = Target.Height - 5
                .Width = Target.Width - 5
            End With
        End If
    Next pic
End Sub

(, 下载次数: 32)

上传

点击文件名下载附件

现在试试，双击单元格看看，希望能帮到你

跳转到最佳答案楼层

wp8680

Sub 导入时直接设置图片的大小()

    With ActiveSheet.Pictures.Insert("D:\My Documents\My Pictures\02.gif")
        .ShapeRange.LockAspectRatio = msoFalse
        .Top = ActiveCell.Top
        .Width = ActiveCell.Width
        .Height = ActiveCell.Height
    End With
End Sub

wp8680

如果要循环批量操作，可以修改路径和文件名，修改当前单元格为变量单元格对像。

金樽空对月

直接插入单元格内的图片不是可执行的文件或者控件，你要借助ACTIVE X控件来实现的，我只知道这些，你可以查找一些资料参考一下。

pigtange

谢谢各位热心回答。
wp8680的方法不错，但我一般不是从电脑里导入，是截图后从剪切板粘贴的，所以是在粘贴好的图片上操作。
能帮我在附件里设置一下吗？
谢谢！

金樽空对月

是这样的效果吗？详见附件，我只会这么多了。

金樽空对月

pigtange 发表于 2015-10-17 20:25
谢谢各位热心回答。
wp8680的方法不错，但我一般不是从电脑里导入，是截图后从剪切板粘贴的，所以是在粘贴 ...

如果批量的处理，还请大神来解决，我也关注学习一下{:35:}

zjdh

批量处理图片自动适应所在单元格大小.rar (70.29 KB, 下载次数: 42)

2015-10-17 21:24 上传

点击文件名下载附件

pigtange

excelpx真是个神奇的网站！感谢各位热心大虾！
不过前面的回答都没有完全满足需要。
再描述下理想效果：每次只双击一张图片，自动适应所在单元格大小，不需要批处理。
在此感谢！

hysys32

pigtange 发表于 2015-10-17 21:43
excelpx真是个神奇的网站！感谢各位热心大虾！
不过前面的回答都没有完全满足需要。
再描述下理想效果：每 ...

图片无单击和双击事件