[已解决]插入图片出错

baksy

本人好奇昨天编制了以下宏
工作表的A2：A3单元格输入姓名
计划B2：B3单元格插入对应照片
电脑桌面保存对应姓名的图片
运行结果
插入的图片不在指定的单元格内
而是都在工作表的固定位置（靠近左上角位置）
望各位大师给我指点。
谢谢！

Sub inset()

Dim a As String

For i = 2 To 3   '本例用了A2：A3单元格输入姓名

r = Range("A" & i)    '选择A列对应单元格的姓名

a = "C:\Documents and Settings\Administrator\Desktop\" & r & ".bmp"   '"图片地址"&姓名&"图片格式"

Range("b" & i).Select    '选择B列对应单元格

ActiveSheet.Pictures.Insert (a)    '插入图片

Next

End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2013-11-21 10:32

Sub inset()
    Dim a As String
    For i = 2 To 3
        r = Range("A" & i)
        a = "C:\Documents and Settings\Administrator\Desktop\" & r & ".bmp"
        Set MR = Range("b" & i)
        ActiveSheet.Pictures.Insert(a).Select
        With Selection
            .Top = MR.Top
            .Left = MR.Left
            .Width = MR.Width
            .Height = MR.Height
        End With
    Next
End Sub

跳转到最佳答案楼层

tgydslr

插入图片不需要编制宏的
常规就行了
只要顺序弄好就行

baksy

tgydslr 发表于 2013-11-21 09:53
插入图片不需要编制宏的
常规就行了
只要顺序弄好就行

我是计划批量插入的。

zjdh

Sub inset()
    Dim a As String
    For i = 2 To 3
        r = Range("A" & i)
        a = "C:\Documents and Settings\Administrator\Desktop\" & r & ".bmp"
        Set MR = Range("b" & i)
        ActiveSheet.Pictures.Insert(a).Select
        With Selection
            .Top = MR.Top
            .Left = MR.Left
            .Width = MR.Width
            .Height = MR.Height
        End With
    Next
End Sub

baksy

zjdh 发表于 2013-11-21 10:32
Sub inset()
    Dim a As String
    For i = 2 To 3

问题已解决，
谢谢zjdh老师！

tgydslr

baksy 发表于 2013-11-21 10:25
我是计划批量插入的。

一次插入几百上千张都没问题