excel怎么把图片完整插入单元格_excel实现图片自适应单元格大小-办公软件-PHP中文网

excel怎么把图片完整插入单元格_excel实现图片自适应单元格大小

冰火之心

发布： 2025-09-22 10:12:01

原创

578人浏览过

答案：通过嵌入单元格、手动调整、VBA宏或照相机功能可实现Excel图片在单元格内完整显示并随单元格大小调整。首先插入图片后设置“随单元格改变位置和大小”属性以实现联动；其次记录单元格行列尺寸并手动设定图片宽高匹配；再者使用VBA宏代码自动插入并缩放图片至选中单元格范围；最后利用“照相机”工具捕获区域快照生成可动态更新的图像对象，拖动调整至目标单元格实现视觉自适应。

excel怎么把图片完整插入单元格_excel实现图片自适应单元格大小

如果您希望在Excel中插入图片并使其完整显示在单元格内，同时根据单元格大小自动调整图片尺寸，则需要进行特定设置。默认情况下，Excel插入的图片是浮动在工作表上方的，不会随单元格调整而自动适配。

本文运行环境：联想ThinkPad X1 Carbon，Windows 11

一、使用“嵌入单元格”方式插入图片

通过将图片嵌入到单元格中，可使图片与单元格建立关联，从而实现随单元格移动和调整位置的效果。虽然不能完全自动缩放，但能确保图片定位准确。

1、点击目标单元格，然后切换到【插入】选项卡，选择【图片】从设备中选择要插入的图像。

2、插入后，右键点击图片，选择【大小和属性】。

3、在右侧打开的“设置图片格式”窗格中，展开【属性】选项。

4、选择“随单元格改变位置和大小”，这样图片会跟随单元格的行列变动而移动。

二、手动调整图片以匹配单元格尺寸

此方法适用于需要精确控制图片在单元格中的显示效果，通过手动设定图片宽高来匹配单元格的实际尺寸。

1、先选中目标单元格，记录其行高和列宽（可通过【开始】→【格式】→【行高】和【列宽】查看）。

2、插入图片后，选中图片，在【图片格式】选项卡下修改“高度”和“宽度”的数值，使其与单元格尺寸一致。

3、为保证比例协调，可在调整时按住Shift键保持原图比例，或取消锁定比例后自由缩放。

4、将图片拖动至目标单元格中心位置，使其视觉上居中对齐。

三、使用VBA宏实现图片自动适应单元格

VBA脚本可以批量处理图片插入，并强制每张图片自动缩放到指定单元格的大小，适合处理大量带图片的数据行。

1、按下Alt + F11打开VBA编辑器，插入一个新模块。

2、粘贴以下代码：

<p>Sub InsertPictureIntoCell()</p>
<p>    Dim pic As Picture</p>
<p>    Dim targetRange As Range</p>
<p>    Set targetRange = Selection '假设选中的是目标单元格</p>
<p>    With targetRange</p>
<p>        Dim picPath As String</p>
                    <div class="aritcle_card">
                        <a class="aritcle_card_img" href="/ai/1672">
                            <img src="https://img.php.cn/upload/ai_manual/000/000/000/175680338913523.png" alt="BibiGPT-哔哔终结者">
                        </a>
                        <div class="aritcle_card_info">
                            <a href="/ai/1672">BibiGPT-哔哔终结者</a>
                            <p>B站视频总结器-一键总结 音视频内容</p>
                            <div class="">
                                <img src="/static/images/card_xiazai.png" alt="BibiGPT-哔哔终结者">
                                <span>871</span>
                            </div>
                        </div>
                        <a href="/ai/1672" class="aritcle_card_btn">
                            <span>查看详情</span>
                            <img src="/static/images/cardxiayige-3.png" alt="BibiGPT-哔哔终结者">
                        </a>
                    </div>
                
<p>        picPath = Application.GetOpenFilename("Image Files,*.jpg;*.jpeg;*.png;*.bmp")</p>
<p>        If picPath = "False" Then Exit Sub</p>
<p>        Set pic = ActiveSheet.Pictures.Insert(picPath)</p>
<p>        With pic</p>
<p>            .Top = .Parent.Cells(targetRange.Row, targetRange.Column).Top</p>
<p>            .Left = .Parent.Cells(targetRange.Row, targetRange.Column).Left</p>
<p>            .Width = .Parent.Cells(targetRange.Row, targetRange.Column).Width</p>
<p>            .Height = .Parent.Cells(targetRange.Row, targetRange.Column).Height</p>
<p>            .Placement = 1 '固定位置和大小</p>
<p>        End With</p>
<p>    End With</p>
<p>End Sub</p>

登录后复制

3、关闭编辑器，返回Excel，选中要插入图片的单元格，运行该宏。

4、选择图片文件后，程序会自动将其插入并拉伸至完全填充所选单元格。