如何将一张图片一键拉伸填充满一个单元格？

coleman_lee · 发表于 2020-6-6 07:08

本帖最后由 coleman_lee 于 2020-6-7 07:47 编辑

如何将一张图片一键拉伸填充满一个单元格？我有很多图片，需要逐一使用“Alt+鼠标拖拽”的方法填充满单元格，一个一个拖拽效率低。有没有宏或者什么办法能实现：

一键填充（把指定或单元格区域内图片填充满指定单元格）？

补充说明：

不需要统一图片大小功能，因为不同文件内，图片大小不一样。
不需要从文件夹外自动导入图片的功能，因为图片命名没有规律。
图片的纵横比例可以变化，因为要填充满单元格。
不需要自动插入并填充，因为手工插入图片后需要进行长宽比例的裁剪及明暗度调节，然后才应用“填充满”操作。
工作表内有六张图片需要进行填充操作，如果能在图片裁剪好后，一键把六张图片自动填充满对应的单元格就更完美了。（我可以手工把图片缩小到单元格边框以内，想下图二这样）。

图一

图二

-------------------------------------------------------------
更新：2020年6月7日
-------------------------------------------------------------
我找到了解决办法，主要是参考了论坛帖子http://club.excelhome.net/thread-918859-1-1.html的无私分享的网友@qdzhxg的代码，在此非常感谢这位朋友。我的代码如下：
主要功能为：

将当前活动Sheet里所有的图片取消纵横比锁定。
以每个图片最左上角所处单元格为对象，将图片缩放充满这个单元格，图片距离单元格四条边缘各3像素距离（这个距离在代码里可调）。

使用注意事项：

为了防止图片缩放之后失真，可以在执行宏之前，手工把图片用Excel的裁剪工具裁剪为合适的长宽比。

Option Explicit
Sub PicAutofit()
Dim Pic As Object
Dim mySheet As Object
Dim rng As Range
For Each Pic In ActiveSheet.Shapes
'Disable picture aspect ratio
Set mySheet = ActiveSheet
mySheet.Pictures.ShapeRange.LockAspectRatio = msoFalse
'Set size and position
Set rng = Pic.TopLeftCell
With Pic
.Height = rng.Height - 6
.Width = rng.Width - 6
.Top = rng.Top + 3
.Left = rng.Left + 3
.Placement = xlMoveAndSize
End With
Next
End Sub

复制代码

运行宏之前：一开始图片大小不一，且都设置了纵横比锁定。

运行宏程序之后，所有图片都自动设置了大小和边距。

如果有人只想按照长宽比拉伸图片，不想图片变形，那可以使用论坛帖子http://club.excelhome.net/thread-918859-1-1.html的无私分享的网友@qdzhxg的代码，他的代码实现了如下功能：

图片只会一侧接触边框，宽度先缩放到边框了，则高度就不动了会留白。反之宽度会留白。

3190496160 · 发表于 2020-6-6 09:30

vba代码可以做到

coleman_lee · 发表于 2020-6-6 20:23

3190496160 发表于 2020-6-6 09:30
vba代码可以做到

我看了论坛里的代码，但是改来改去也没该出我想要的效果。

coleman_lee · 发表于 2020-6-7 07:54

分享一个VBA代码格式化工具，可以将不对齐的代码一键对齐。
http://demon.tw/tool/vbs-beautifier.html

zxdzzqzxd · 发表于 2021-9-10 15:25

确实有效果，
但如果碰到合并单元格该怎么办？
代码如何修改？

2338171 · 发表于 2022-12-16 16:12

zxdzzqzxd 发表于 2021-9-10 15:25
确实有效果，
但如果碰到合并单元格该怎么办？
代码如何修改？

有找到合并单元格图片填充代码了吗？

2338171 · 发表于 2022-12-16 16:15

但如果碰到合并单元格该怎么办？代码如何修改？

vipfighter · 发表于 2022-12-16 16:40

WPS有个功能，图片比例不变，嵌入到里面，但是仅限于WPS再打开使用。这个功能也算WPS为数不多的优势之一了。

ZJKUSO · 发表于 2023-12-5 11:13

有没有办法对合并的单元格生效？

橒♂蝣 · 发表于 2023-12-5 14:43

IMAGE函数行不

		自动登录	找回密码
密码			免费注册

[求助] 如何将一张图片一键拉伸填充满一个单元格？

评分