Wps表格一键插入图片,调整大小,居中对齐位置

WPS做报价表格,经常要用到产品图片,手动插入很费力,且看我优化过的一键插图。

操作方法

  • 01

    打开WPS表格,找到开发工具,打开VBA编辑器,任意新建一个模块

  • 02

    Sub 优化过的插入图片() Application.ScreenUpdating = False '关闭屏幕刷新 Dim rg As Range, k As Range, k1 As Range, picPath$, picTemp As Picture Dim picwd As Integer, picht As Integer, k2 As Range, k3 As Range,k4 as Range '取得有图片名称的单无格区域 'Set k2 = ThisWorkbook.ActiveSheet.Range("a1:c80").Find(what:="内容") 'Set k3 = ThisWorkbook.ActiveSheet.Range("a1:c80").Find(what:="小计") 'Set rg = Range("b" & (k2.Row + 1), "b" & (k3.Row - 1)) '或者手动选择有图片名称的单元格区域 Set k4= Selection Set rg = Application.InputBox("选择图片显示区域:", "选择区域", Type:=8) For Each k In rg On Error Resume Next '容错处理 '选中图片名称的单无格右侧的单元格做为插入图片的地方 Set k1 = k.Offset(0, 1) k1.Select ActiveSheet.Pictures(k & k.Row).Delete '删除老图片 picPath = "E:\弋赢\报价图\" & Trim(k) & ".png" '选择插入图片 Set picTemp = ActiveSheet.Pictures.Insert(picPath) '插入图片 picTemp.Name = k & k.Row picTemp.Placement = xlMoveAndSize '图片随单元格大小变化 picwd = picTemp.Width ' 取得图片本身长度 picht = picTemp.Height ' 取得图片本身宽度 '如果图片长和宽都小于单元格就拉伸图片 If picwd < k1.Width - 5 And picht < k1.Height - 5 Then picTemp.Width = k1.Width - 5 End If '如果图片长度大于单元格的长度则缩小 If picwd > k1.Width Then picTemp.Width = k1.Width - 5 If picTemp.Height * n < k1.Height - 5 Then picTemp.Height = k1.Height - 5 End If End If '如果图片长度大于单元格的高度则缩小 If picTemp.Height > k1.Height Then picTemp.Height = k1.Height - 5 End If '给图片在单元格中居中 picTemp.Left = k1.Left + k1.Width / 2 - picTemp.Width / 2 picTemp.Top = k1.Top + (k1.Height - picTemp.Height) / 2 Set picTemp = Nothing Next k4.Select '返回宏运行之前单元格 Application.ScreenUpdating = True '打开刷新 End Sub

  • 03

    在WPS表格窗口运行宏,名称为“优化过的插入图片”

(0)

相关推荐

  • wps表格怎么插入图片

    今天小编要和大家分享的是wps表格怎么插入图片,希望能够帮助到大家. 操作方法 01 首先在我们的电脑桌面上新建一个wps表格并点击它,如下图所示. 02 然后点击屏幕上方的插入,如下图所示. 03 ...

  • WPS表格如何插入图片?图片样式如何设置?

    今天小编在单位遇到个小功能,那就是WPS表格插入图片后,如何设置图片样式,一直没太在意,只想着插入就可以啦!原来是可以让图片美观的,接下来小编要和大家分享一下WPS表格如何插入图片?图片样式如何设置? ...

  • 怎样将excel表格里的图片批量居中对齐?

    目前excel的版本还无法支持将表格中的图片批量对齐居中,目前还有个办法可以玩成这样的操作. 步骤一:选中需要批量居中的图片(推荐随便选中一张图片,然后按住CTRL+A  即可全选表格中所有图片) 步 ...

  • 如何在WPS表格中插入图片?

    使用WPS表格的时候,经常会遇到需要添加图片的情况,具体怎么操作呢? 操作方法 01 打开相应的表格 02 点击需要添加图片的单元格 03 点击菜单栏里的"插入"选项下的" ...

  • 手机WPS Office表格如何插入图片

    今天小编给大家介绍的是手机wps表格如何插入图片,希望对大家有所帮助. 操作方法 01 首先,我们去应用商店下载一个wps,并且选择点击打开. 02 然后,我们新建一个空白的表格,并且定位到相应的单元 ...

  • WPS表格怎么插入背景图片_Excel如何设置背景?

    在日常的学习和工作中,我们常常会遇到需要给表格设置背景图片的情况.今天,小编就以WPS Office 2019为例,讲一讲如何用WPS给表格(Excel)插入背景图片: 方法一 01 用WPS打开需要 ...

  • WPS表格怎么添加图片LOGO

    我们在用WPS表格处理工作数据时,往往会遇到添加公司logo图片的情况,今天就跟大家介绍一下WPS表格怎么添加图片LOGO的具体操作步骤.1. 双击打开要添加logo的WPS表格,在上方菜单栏选择页面 ...

  • 怎么在WPS表格中插入压缩文件

    今天给大家介绍一下怎么在WPS表格中插入压缩文件的具体操作步骤.1.首先打开电脑上的WPS表格,进入编辑页面后,点击上方的[插入]菜单2. 在打开的插入选项下,找到右侧的附件选项,点击3. 然后在弹出 ...

  • 如何在Excel表格内插入图片

    有些小主想要在Excel表格中插入图片,可是又不知道怎么操作,怎么办呢?小编给您说道说道 操作方法 01 打开需要插入图片的表格,然后把光标定在放置图片的格子 02 点击"插入"功 ...