[已解决]怎样插入图片到单元格

爱疯 · 发表于 2009-10-13 17:21

请问：怎样用VBA在A1单元格插入图片。单元格A1行高和列宽，随图片大小自动更改。

谢谢[em04]

最佳答案

月排行榜 / 总排行榜

雨狐

2009-10-13 19:51

QUOTE:

以下是引用函数小菜鸟在2009-10-13 18:41:00的发言：

弱弱地提醒一下，

雨狐，写反了，是单元格A1行高和列宽，随图片大小自动更改，不是图片随单元格变化。

谢谢沧海老师

z1jg8PKI.rar (11.36 KB, 下载次数: 251)

girlov · 发表于 2009-10-13 17:41

VBA还比较生熟

爱疯 · 发表于 2009-10-13 17:50

QUOTE:

以下是引用girlov在2009-10-13 17:41:00的发言：
VBA还比较生熟

一起学习[em01]

补充，图片路径随意，只为学习过程。谢谢！

雨狐 · 发表于 2009-10-13 18:34

IX4QGioq.rar (9.34 KB, 下载次数: 77)

函数小菜鸟 · 发表于 2009-10-13 18:41

弱弱地提醒一下，

雨狐，写反了，是单元格A1行高和列宽，随图片大小自动更改，不是图片随单元格变化。

安贤 · 发表于 2009-10-13 19:37

学习

雨狐 · 发表于 2009-10-13 19:51

QUOTE:

以下是引用函数小菜鸟在2009-10-13 18:41:00的发言：

弱弱地提醒一下，

雨狐，写反了，是单元格A1行高和列宽，随图片大小自动更改，不是图片随单元格变化。

谢谢沧海老师

z1jg8PKI.rar (11.36 KB, 下载次数: 251)

求知123 · 发表于 2009-10-13 19:52

学习学习

爱疯 · 发表于 2009-10-13 20:38

谢谢雨狐、沧海[em25][em25][em25]

爱疯 · 发表于 2009-10-13 20:41

真晕，刚打了个回车贴就发出去了。。。。再写吧

Sub a()
    Dim c
    For Each c In ActiveSheet.Pictures
        c.Delete
    Next
    ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\1.bmp").Select
    With Selection
        .Top = Range("a1").Top
        .Left = Range("a1").Left
    End With
    Range("a1").RowHeight = Selection.Height
    Range("a1").ColumnWidth = Selection.Width / (Cells(1, 1).Width / Cells(1, 1).ColumnWidth)
End Sub

黄色处的帮助我查不到，请问怎样才能查到？谢谢

		自动登录	找回密码
密码			注册

[已解决]怎样插入图片到单元格

评分