咔片PPT · AI自动生成演示文稿,模板丰富、排版精美 讯飞智文 · 一键生成PPT和Word,高效应对学习与办公

内容导航:


一、怎么把WPS中两插入图片的上下距离缩短


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

2.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


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



二、wps页面放大缩小快捷键是什么


WPS常用的快捷键如下:

WPS删除快捷键——【Alt+Delete】

WPS插入新页快捷键——【Alt+Insert】

WPS显示清单的当前列中的数值下拉列表快捷键——【Alt+向下键】

WPS输入当前日期快捷键——【Ctrl+;】

WPS打开文档快捷键——【Ctrl+0】

WPS截图快捷键——【Ctrl+Alt+A】

WPS设置字体快捷键——【Ctrl+Alt+F】

WPS设置比例快捷键——【Ctrl+Alt+R】

WPS全选快捷键——【Ctrl+A】

WPS加粗快捷键——【Ctrl+B】

WPS复制快捷键——【Ctrl+C】

WPS向下填充快捷键——【Ctrl+D】

WPS编辑状态/插入新页快捷键——【Ctrl+Enter】

WPS居中快捷键——【Ctrl+E】

WPS定义名称快捷键——【Ctrl+F3】

WPS查找快捷键——【Ctrl+F】

WPS定位快捷键——【Ctrl+G】

WPS替换快捷键——【Ctrl+H】

WPS隐藏鼠标指针快捷键——【Ctrl+H】

WPS倾斜快捷键——【Ctrl+I】

WPS两端对齐快捷键——【Ctrl+J】

WPS超链接快捷键——【Ctrl+K】

WPS左对齐快捷键——【Ctrl+L】

WPS新建文档快捷键——【Ctrl+N】

WPS切换到下一个工作表快捷键——【Ctrl+PageDown】

WPS切换到上一个工作表快捷键——【Ctrl+PageUp】

WPS打印文档快捷键——【Ctrl+P】

WPS向右填充快捷键——【Ctrl+R】

WPS键入当前时间快捷键——【Ctrl+Shift+;】

WPS将选定区域扩展到工作表的开始快捷键——【Ctrl+Shift+Home】

WPS保存快捷键——【Ctrl+S】

WPS文档切换快捷键——【Ctrl+Tab】

WPS下划线快捷键——【Ctrl+U】

WPS粘贴快捷键——【Ctrl+V】

WPS关闭文档快捷键——【Ctrl+W】

WPS剪切快捷键——【Ctrl+X】

WPS撤销快捷键——【Ctrl+Z】

WPS选定不连续文字快捷键——【Ctrl+鼠标拖动】

WPS退出演示播放快捷键——【Esc】

WPS另存为快捷键——【F12】

WPS编辑单元格快捷键——【F2】

WPS当前页面播放快捷键——【F5】

WPS跳转到第X页演示页快捷键——【Number+Enter】

WPS选定到行尾快捷键——【Shift+End】

WPS完成输入并向上选取上一个单元格快捷键——【Shift+Enter】

WPS显示右键菜单快捷键——【Shift+F10】

WPS选定到行首快捷键——【Shift+Home】

WPS选中到下一屏相应单元格区域快捷键——【Shift+PageDown】

WPS选中到上一屏相应单元格区域快捷键——【Shift+Pageup】

WPS完成输入并向左选取上一个单元格快捷键——【Shift+Tab】

WPS完成输入并向右选取下一个单元格快捷键——【Tab】


三、wps文字上下紧凑怎么调


wps文字上下紧凑需对行距进行调整,可参考以下步骤:

1、用WPS文字打开需要设置行间距的Word文件。

2、选中需要调整行间距的文字所在区域。

3、点击一下开始菜单下的“行距”按钮。

4、在出现的行距(行间距)的多个选项中,点击一下“其他”。

5、在弹出的段落窗口中,找到间距下的行距,然后在后面的文本框中输入需要设置的行间距(以当前的显示效果为基准,输入需要显示出的行间距效果的倍数)。然后再点击“确定”。

6、操作完上面的步骤,就已经基本完成了用WPS 文字给Word文档设置行间距的流程了,保存即可。