1、首先,我们打开我们电脑上面的wps文字,然后点击插入;
2、之后我们点击图片;
3、弹出的界面,我们选择两张图片,然后点击打开;
4、之后我们点击其中一张图片,之后点击右边的布局选项,然后选择浮于文字上方;
5、之后我们再点击另外一张图片,选择浮于文字上方;
6、选中一张图片,然后按Ctrl,再选择另外一张图片,之后我们点击组合,弹出的界面,我们点击组合;
7、结果如图所示,这样就将两张图片合成一张了。
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) & ".webp" '选择插入图片
Set picTemp = ActiveSheet.Pictures.Insert(picPath) '插入图片
picTemp.Name = k & k.Row
picTemp.Placement = xlMoveAndSize '图片随单元格大小变化
picwd = picTemp.Width ' 取得图片本身长度
picht = picTemp.Height ' 取得图片本身宽度
'如果图片长和宽都小于单元格就拉伸图片
If picwd k1.Width Then
picTemp.Width = k1.Width - 5
If picTemp.Height * n 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表格窗口运行宏,名称为“优化过的插入图片”
以Word 2016为例,有以下步骤:
1、打开一个Word文档,如下图所示:
2、点击菜单中的插入,选择图片,如下图所示:
3、选择两张图片,点击插入,如下图所示:
4、调整两张图片的大小,如下图所示:
5、在第一张图片的后面输入回车,如下图所示:
6、选择这个回车的位置,如下图所示:
7、点击上面的字体,更改成大的字体,如下图所示:
8、图片的间距变大,设置完成,如下图所示: