Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 6678|回复: 5

[已解决]图片批量替换(公司老LOGO批量替换为新LOGO)

[复制链接]
发表于 2013-11-28 16:11 | 显示全部楼层 |阅读模式
本帖最后由 CheryBTL 于 2013-11-28 16:34 编辑

图片批量替换(公司老LOGO批量替换为新LOGO),具体见附件所示:
请各位朋友帮忙,谢谢!
图片批量替换(公司老LOGO批量替换为新LOGO).rar (219.82 KB, 下载次数: 201)
发表于 2013-11-28 16:25 | 显示全部楼层    本楼为最佳答案   
Sub Test()
    Dim x
    For Each x In ActiveSheet.Shapes
        If Left(x.Name, 1) = "P" Then
            With ActiveSheet.Shapes("图片 6").Duplicate
                .Left = x.Left
                .Top = x.Top
                .Width = x.Width
                .Height = x.Height
            End With
            x.Delete
        End If
    Next
End Sub

评分

参与人数 2 +30 收起 理由
xhrys + 9 很给力!
CheryBTL + 21 很给力!

查看全部评分

回复

使用道具 举报

发表于 2013-11-28 16:36 | 显示全部楼层
  1. Private Sub CommandButton1_Click()
  2.     Dim shp As Shape
  3.         For Each shp In ActiveSheet.Shapes
  4.             If shp.Name Like "Picture*" And shp.AlternativeText <> "图片 6" Then
  5.                 shp.Delete
  6.             End If
  7.         Next
  8.     For i = 1 To Range("e65536").End(3).Row
  9.         If Cells(i, 5) = "设  备  点  检  卡" Then
  10.             ActiveSheet.Shapes.Range(Array("图片 6")).Select
  11.             Selection.Copy
  12.             Range(Cells(i, 1), Cells(i, 4)).Select
  13.             ActiveSheet.Paste
  14.         End If
  15.     Next
  16. End Sub
复制代码

评分

参与人数 2 +30 收起 理由
CheryBTL + 21 很给力!
xhrys + 9 赞一个!

查看全部评分

回复

使用道具 举报

发表于 2013-11-28 16:40 | 显示全部楼层
VBA操作图片没用过,又长见识了,果断收藏
回复

使用道具 举报

发表于 2013-11-28 21:31 | 显示全部楼层
来学习了~
回复

使用道具 举报

发表于 2016-3-31 15:18 | 显示全部楼层
如EXCEL工作薄中有多个工作表中有图片需替换,该怎么办?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 22:43 , Processed in 0.789831 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表