替换excel工作表中图片怎么保持图片位置和大小不变？
发布时间：2023-01-05 15:22:29
Q：我原先在工作表中放置了一个图片，现在我想使用新的图片来替换该图片，但是要保持图片的位置和大小不变，如何使用VBA代码实现？
A：在VBE中插入一个标准模块，输入如下代码：
SubChangePicLoc()
On Error GoTo ErrHandle
Dim blnFlag As Boolean
Dim shp As Shape
Dim dblTop As Double
Dim dblLeft As Double
Dim dblHeight As Double
Dim dblWidth As Double
Dim FileToOpen As Variant
‘检查所选取的是形状还是单元格
blnFlag = False
For Each shp In ActiveSheet.Shapes
If shp.Name = Selection.Name Then
blnFlag = True
Exit For
Else
blnFlag = False
End If
Next shp
ErrHandle:
On Error GoTo endHandle
If blnFlag = True Then
With Selection.ShapeRange
‘保存所选图片的属性
dblTop = .Top
dblLeft = .Left
dblHeight = .Height
dblWidth = .Width
End With
‘删除所选图片
Selection.Copy
Selection.Delete
‘插入新图片
FileToOpen =Application.GetOpenFilename
If FileToOpen <> False Then
ActiveSheet.Pictures.Insert(FileToOpen).Select
Else
MsgBox “没有选择图片文件!”
ActiveSheet.Paste
End If
‘将原图片属性应用于新图片
With Selection.ShapeRange
.Top = dblTop
.Left = dblLeft
.Height = dblHeight
.Width = dblWidth
End With
Else
MsgBox “请选择图片,不要选择单元格区域.”
End If
endHandle:
End Sub
首先选取工作表中要替换的图片，然后运行代码，效果如下所示。
0
投稿猜你喜欢
win10系统如何设置待机时间？在win10系统中，可以通过设置待机时间来减少电量的损耗，但是很多用户都不清楚具体要怎么设置，一起来看下吧。- 办公软件WPS文档文字如何居中?新手不会，上网找怕麻烦，而且教程太乱没有统一的答案怎么办,哪里有更好的方法?下面小编马上就告诉大家怎么做。w
- Intel存储黑科技傲腾内存（Optane Memory）已经毫无保留的展现出来了（消费级目前只有16GB和32GB），从测试结果看它目前的
- 演示文稿制作流程包括：确定课题和设计方案等；演示文稿的制作原则包括：风格统一、排版一致、配色协调、图案搭配、图表设置、链接易用和简化页面。演
- 不会开启透明效果及透明效果不明显的问题，困扰着许多安装了Win10 1909系统的用户。那么，Win10 1909透明效果要怎么开启？又要如
- Win8在IE11浏览器中无法使用搜狗五笔输入法怎么解决?众所周知，Win8.1系统都有自带微软输入法，有的用户不喜欢系统自带的输入法，都会
- 当我们表格的数据内容比较多的时候，我们翻看后面数据会很吃力，表头不显示，我们就看不清楚里面的内容竟然代表着什么？鉴于小伙伴的这种困难，下面我
- 之前我们已经介绍了很多冠以window10开始菜单和cortana无法工作的解决办法，今天小编又发现另外一种解决办法，看过之前文章也有得到帮
- 2019 WWDC 上，苹果发布了重磅硬件产品——全新 Mac Pro，随新 Mac Pro 一同登场的还有全新的高端参考级 LCD 高清显
- 你已经升级Windows10了么？希望大家填写一份Windows7升级Windows10体验调查，我们将把调查结果将反馈至微软。你的参与真的
- 欢迎观看illustrator教程，小编带大家学习 illustrator 的基本工具和使用技巧，了解如何在 illustrator 中使用
- 鬼谷八荒是目前非常热门的一款游戏，很多用户都会在空闲时间玩这款游戏，而有的用户发现自己的Win10系统玩不了鬼谷八荒，可明明游戏是支持Win
- “ 有朋友问了问题，有100个人的姓名，要随机分成10组，每组10人，怎么样能够快速地随机分出来?”技术不是古板的教条的，灵活使用却依赖于深
- 想象一下,如果突然看到一张满是数据的excel文档,如果没有批注注释,您还能看懂吗?下面小编就为大家介绍一下，不会的朋友可以参考本文，来看看
- 百度网盘功能强大在网络上名声很好，很多人即使没用过肯定也听过，那么肯定很多新用户登陆了进去也还是有很多不知道该怎么使用的地方吧，今天就一起来
- 如果您不确定所购买的 AirPods 是哪一代，可以通过如下方法进行识别：在设置中查看型号：将您的 AirPods 连接
- excel怎么画象限图？excel中四象限图可以很清楚的表达两组数据的分布区域，该怎么绘制呢？下面我们就来看看excel中画四象限图的教程，
- 现在很多词典软件都拥有屏幕取词功能，也就是把鼠标光标停留在屏幕上的一段文本或者词语上，词典就会自动翻译出该文本或词语，这能直接为用户节省下许
- word怎么制作漂亮的时间轴记录事件？word中想要制作一个时间轴，该怎么制作时间轴呢？下面我们就来看看word制作时间轴的教程，需要的朋友
- 1、首先，一般第一次用的朋友可以找不到全角半角切换选项，设置步骤如下图： 点击百度的图标，将全半角符号勾上 &nb
