EXCEL 多个已经录制好的宏 ，怎么可以合并起来用吗

hfdz1986

你好，我是新手，是这样，我在我的EXCEL 里已经录制了三个宏，分别是  批量 删除图片 ，加载图片1， 加载图片2 ，我如何可以合并这三个宏， 实现 图片更新的功能。

宏一  批量 删除图片

Sub 删除图片()
    Dim tp As Shape
    For Each tp In ActiveSheet.Shapes
        If tp.Type = 13 Then tp.Delete
    Next
End Sub





宏二   批量插入图片1

Sub 批量插入图片()
Dim wj As String
Dim rng As Range
Sheets("11库存型号图片").Select '选中要插入图片的工作表
x = [a65536].End(xlUp).Row '取得最后一行的行号
For i = 2 To x
    na = Cells(i, 4) '从第二列（即B列）得到图片名称，并以此名查找图片
    wj = " sheet" & "\" & na & ".jpg" '图片文件存储的路径与格式（.jpg）
    If Dir(wj) <> "" Then
        Cells(i, 10).Select '图片需要插入到第四列（即d列）
        ActiveSheet.Pictures.Insert(wj).Select
        Set rng = Cells(i, 10) '根据单元格的大小调整图片
        With Selection
            .Top = rng.Top + 1
            .Left = rng.Left + 1
            .Width = rng.Width - 1
            .Height = rng.Height - 1
        End With
    End If
Next
MsgBox "图片插入完毕"
End Sub


宏三 批量加载图片二

Sub 批量插入色卡图片()
Dim wj As String
Dim rng As Range
Sheets("11库存型号图片").Select '选中要插入图片的工作表
x = [a65536].End(xlUp).Row '取得最后一行的行号
For i = 2 To x
    na = Cells(i, 4) '从第二列（即B列）得到图片名称，并以此名查找图片
    wj = "H:\1 工作室\2 衣服型号图片\色卡PIC" & "\" & na & ".jpg" '图片文件存储的路径与格式（.jpg）
    If Dir(wj) <> "" Then
        Cells(i, 9).Select '图片需要插入到第四列（即d列）
        ActiveSheet.Pictures.Insert(wj).Select
        Set rng = Cells(i, 9) '根据单元格的大小调整图片
        With Selection
            .Top = rng.Top + 1
            .Left = rng.Left + 1
            .Width = rng.Width - 1
            .Height = rng.Height - 1
        End With
    End If
Next
MsgBox "图片插入完毕"
End Sub



请指教，能否实现

刀羊

把执行代码复制粘贴到一个sub里，试运行看看有没有什么冲突。

hfdz1986

刀羊 发表于 2015-6-26 20:51
把执行代码复制粘贴到一个sub里，试运行看看有没有什么冲突。

其实就是想要实现自动更新 图片的功能。  

您能介绍好的方法吗、 批量加载 文件夹里的图片， 每次打开EXCEL 文件 里面的图片 都可以根据相应文件夹里文件变化而更新