excel的VBA插图源代码，解决2010版后插图源路径破坏图片不影响问题

来源：互联网发布：林忆软件编辑：程序博客网时间：2024/04/29 18:53

1　背境：

原来使用ActiveSheet.Pictures.Insert(temp).Select方法，对2007版本及以前没有路径也是可以的，可是到了2010版后，这个函数是存储的路径了。

2　解决方法：
Sheet1.Shapes.AddPicture　方法兼容所有版本，可以把图片准确插入指定的位置。

3　示例：按照某一列数据生成图片文件路径，然后把图片插入指定的位置。

Sub Macro1()   Dim SrcRange As Range, SrcSheet As Worksheet   Dim i As Integer, count As Integer, picLeft As Integer, picTop As Integer, picWidth As Integer, picHeight As Integer     Set SrcSheet = ActiveWorkbook.Sheets("sheet1")    i = Worksheets("sheet1").Range("B1").CurrentRegion.Rows.count    For count = 2 To i

    '图片要插在哪一列      picRange = "D" + Trim(Str(count)) + ":D" + Trim(Str(count))       picLeft = Range(picRange).Left + 10       picTop = Range(picRange).Top + 10       picWidth = Range(picRange).Width - 20       picHeight = Range(picRange).Height - 20

      '以哪一列的值做为图片名       fileRange = Trim(Range(Cells(count, 2), Cells(count, 2)).Value)       picPath = "P:\" + fileRange + ".jpg"      If Dir(picPath) <> "" Then          SrcSheet.Shapes.AddPicture picPath, True, True, picLeft, picTop, picWidth, picHeight      End If     NextEnd Sub

阅读全文

0 0