在Excel中单击时如何放大图像?

您所在的位置:网站首页 excel里的图片怎么放大查看 在Excel中单击时如何放大图像?

在Excel中单击时如何放大图像?

2023-04-15 17:23| 来源: 网络整理| 查看: 265

在Excel中单击时如何放大图像?

假设您已将图片列表插入一列,并使图片尺寸与单元格尺寸匹配,如下图所示。 由于插入的图片看起来很小,您可能需要出于某些目的将其放大。 本文将向您展示在Excel中单击图片时放大图片并通过第二次单击恢复到原始大小的方法。

单击带有VBA代码的图像放大

单击带有VBA代码的图像放大 excel-tab-banner-2014-12-02 惊人的! 在 Excel 中使用高效的选项卡,如 Chrome、Firefox 和 Safari! 每天节省50%的时间,并减少数千次鼠标单击!

下面的VBA代码可以帮助您在Excel中单击图像时将其放大。 请执行以下操作。

1.右键单击需要放大的图片,只需单击它,然后单击 分配宏 从上下文菜单中。 看截图:

2.在 分配宏 对话框,请点击 全新 按钮。

3.在弹出 Microsoft Visual Basic应用程序 窗口,请在以下窗口之间复制并粘贴以下VBA代码: 小组 和 END SUB 代码。 看截图:

VBA代码:在Excel中单击以放大图像

Dim shp As Shape Dim big As Single, small As Single Dim shpDouH As Double, shpDouOriH As Double big = 3 small = 1 On Error Resume Next Set shp = ActiveSheet.Shapes(Application.Caller) With shp shpDouH = .Height .ScaleHeight 1, msoTrue, msoScaleFromTopLeft shpDouOriH = .Height If Round(shpDouH / shpDouOriH, 2) = big Then .ScaleHeight small, msoTrue, msoScaleFromTopLeft .ScaleWidth small, msoTrue, msoScaleFromTopLeft .ZOrder msoSendToBack Else .ScaleHeight big, msoTrue, msoScaleFromTopLeft .ScaleWidth big, msoTrue, msoScaleFromTopLeft .ZOrder msoBringToFront End If End With

备注:在代码中,您可以在代码big = 3中分配大尺寸的图片。

4.然后按 其他 + Q 同时关闭按键 Microsoft Visual Basic应用程序 窗口。

从现在开始,单击图片时,它将放大到您指定的大小,然后再次单击将恢复为原始大小,如下面的屏幕截图所示。

相关文章: 如何将图片/图像锁定到Excel中的单元格或内部单元格? 如何基于Excel中的单元格值在单元格中动态插入图像或图片? 最佳办公效率工具 Kutools for Excel 解决您的大部分问题,并将您的工作效率提高 80% 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件... 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围... 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围... 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择... 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等... 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换... 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体... 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF... 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。 kte选项卡201905 阅读更多 免费下载... 采购...  Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50%,并减少数百次鼠标单击! officetab底部 阅读更多 免费下载... 采购...   


【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3