怎么在word给图片加上图名

‘壹’ word中插入图片怎么让它显示名字啊

1、首先，在Word文档中依次点击插入——图片。

‘贰’ 如何在word的图片下写入图片名称

看图

‘叁’ word如何给图片命名

选中图片，点击插入题注，在题注设置窗口中输入图片名字。

‘肆’ 怎么批量把图片放到WORD里并附上该图的名称

Sub 选择重命名文件夹()

Application.ScreenUpdating = False

With Application.FileDialog(msoFileDialogFolderPicker) '运行后出现标准的选择文件夹对话框

If .Show Then myPath = .SelectedItems(1) Else Exit Sub '如选中则返回=-1 / 取消未选则返回=0

End With

If Right(myPath, 1) <> "" Then myPath = myPath & ""

'返回的是选中目标文件夹的绝对路径,但除了本地C 盘、D 盘会以"C:"形式返回外，其余路

径无""需要自己添加

Getfd (myPath)

Application.ScreenUpdating = True

End Sub

Sub Getfd(ByVal pth)

On Error Resume Next

Dim strPath As String

'插入两行

Columns("A:B").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

'设置B 行内容

Range("B1") = "目标名称"

Range("B2").Select

ActiveCell.FormulaR1C1 = "=RC[1]&"" ""&RC[2]&"".JPG""" '设置B 行内容为目标名称

Range("B2").Select

m = Range("C65536").End(xlUp).Row

Selection.AutoFill Destination:=Range("B2:B" & m) '填充B 行

'设置A 行内容为所选文件下所有图谱名称

Range("A1") = "原名称"

strPath = pth & "\"

f = Dir(strPath & "*.jpg")

k = 1

Do While f <> ""

k = k + 1

Range("A" & k) = f

f = Dir

Loop

'调整AB 列宽

Cells.Select

Cells.EntireColumn.AutoFit '调整AB 列宽

'重命名

a = Cells(Cells.Rows.Count, 1).End(xlUp).Row + 3 'A 列最后可见单元的行号

For b = 2 To a

c = Range("a" & b).Value

cc = Range("b" & b).Value

Name strPath & c As strPath & cc '重命名

Next

MsgBox ("重命名完成")

End Sub

‘伍’ 如何在word图片上写上名字

步骤一:单击菜单栏中的“插入”选项卡,选择“图片”插入一张你需要制作的图片。
•步骤二:选中插入的图片,调整至合适大小。
•步骤三:单击菜单栏中的“插入”选项卡的“文本”选项组,在下拉菜单中,选择文本...
•步骤四:然后在文本框中输入“桃花源”,改变字体和大小。
•步骤五:点击“格式”选项卡中的“形状填充”,选中“无颜色填充”。

‘陆’ 用word怎么添加图名

1、首先打开Word，选中需要添加图名的图片，如图所示

‘柒’ 怎样在WORD里面加入图片并给图片加上标题

材料/工具：word2010

1、建立Word文档，插入图片或表格。