如何批量插入圖片和圖片名

A. 怎樣在WORD中批量插入圖片

方法一：
1、單擊插入---->圖片，如圖所示；
2、在彈出「插入圖片」對話框中選擇存放圖片的位置，此時按住
ctrl
鍵，你就可以用滑鼠選擇多張圖片了；或者你也可以按 shift
鍵，然後單擊選中一張圖片，再單擊另一張圖片，則自動選中了這兩張圖片為對角線的矩形范圍內的所有圖片；或者直接按快捷鍵 ctrl+a
全選，全部選中。最後「插入」即可，如圖所示。
方法二：
1、打開存放圖片的位置，然後選中你的插入的全部圖片；
2、在按下滑鼠右鍵，選擇「復制」；
3、word文檔中，按下滑鼠再按下右鍵，選擇「粘貼」，即可快速想插入的多個圖片。

B. excel如何批量導入圖片

您好，方法
首先，我們在D盤（其他盤也可以）建一個文件夾，起名為「批量導入圖片」（名字隨意起），然後將需要導入到Excel中的圖片放入此文件夾中。
接下來，我們使用Excel建一個工作表，輸入「名稱」、「照片」、「圖片路徑」。
在「圖片路徑」這一列，選中第一個單元格，輸入如下內容：<table><img src="D:\批量導入圖片\花朵1.jpg"width="130"height="120">。
這里有幾點要注意：
1.存放位置和文件夾名稱，根據你自己設計的填寫。
2.照片名稱要保持文件夾內的照片名字和表格中「名稱」這一列所起的名字相同，不然導入照片會失敗。
3.width=」130」、height=「120」是為導入的圖片設定的大小，可根據需要自行設定數值。
Excel快速批量導入照片的方法
然後下拉「圖片路徑」列中的第一個單元格，將所有需要導入圖片的行填充上述公式內容，根據「名稱」列更改公式中的圖片名字。然後，將每行列寬和行高調整成公式中所述的大小（比公式中的數值大即可）。
接下來，將更改好的所有公式復制，在圖片存放的文件夾「批量導入圖片」中建立一個記事本，將公式粘貼進去，保存記事本。
復制記事本中的內容，在表格中的「照片」一列粘貼，所有圖片即導入成功。

C. 怎麼批量把圖片放到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

D. EXCEL中如何批量插入對應圖片

步驟1、先做好需要插入圖片的數據，再將對應的圖片保存在一個文件夾里，建一個輔助列；

步驟2、輸入公式="<table><img src=""xx"&A2&".jpg""width=""xx""height=""xx"">"，在xx處分別輸入存放圖片的文件夾名稱、圖片的寬度及高度，然後向下填充所有要插入圖片的行；

步驟3、復制所添加的輔助列，在存放圖片的文件夾新建一個文本文檔，打開文本文檔粘貼，復制文本文檔；

步驟4、返回excel表格，在圖片列第一行空白處右鍵，點擊選擇性粘貼，選擇Unicode後點擊確定；

步驟5、調整第一張圖片的列寬和行高，選中調整好的行，點擊格式刷，向下刷動；

步驟6、如果覺得圖片不明顯，可選中一張圖片，按ctrl+a再選中所有圖片，點擊格式，選擇圖片邊框給圖片添加一個邊框即可。

E. 如何在EXCEL表格中批量插入對應圖片

在導入圖片的時候，因為大量數據，一個一個上傳是非常慢的，這里分享下快速批量導入圖片的方法。

1、首先打開excel表格，在表格裡面先編輯好文檔，選中需要插入圖片的表格。

F. word批量導入圖片和圖片名，並生成多列表格，怎麼操作

一、批量導入圖片：創建表格1、點擊插入——表格——選擇兩列一行即可

2、全選表格後右鍵設置屬性——點擊選項——取消自動重調尺寸以適應內容——點擊確定3、將滑鼠放在第一個單元格內——點擊插入——圖片——按住ctrl+a全選圖片——插入4、看一下效果，圖片是不是都在一列了，而且大小也相同了，選擇右側空白列——右鍵刪除列5、最重要的一步就是選中表格所有內容，按CTLR+H調出查找替換窗口在查找內容中輸入(?)

替換內容中輸入1^p

選中搜索選項中的使用通配符全部替換

2、將滑鼠放在新建的題注"圖1"後按 alt+f9 鍵顯示域代碼—— 按CTRL+H調出查找替換窗口

查找內容為：^g

替換內容為：^&^p^c

選擇全部替換完成後刪除一個多餘的域代碼

注意：前面已經做過查找替換的操作，別忘記通配符要去掉勾選！

3、按Ctrl+A全選整篇文檔後按Alt+F9更新域代碼，圖片下的編號已全部添加完成（全部顯示為圖1），再按一次F9刷新後所有編號自動更新

4、選中所有內容後設置居中排列——點擊文件——選項——顯示——段落標記——點擊確定即可

G. 如何大量批量修改文件夾和圖片名字

批量修改圖片名稱的方法：

步驟1，先下載工具軟體，然後安裝打開。點擊下圖兩個紅框中的任意一個，將需要修改名稱的圖片全部添加到軟體中，可以從不同文件夾中添加。

H. excel表中批量導入照片

我們之前講過條碼列印軟體中批量插入圖片的幾種方法，有圖片名稱是有規律的序列號導入方法；有圖片名稱沒有規律，將圖片名稱批量重命名為序列號導入方法，比如：erweima(1),erweima(2)……；還有圖片名稱沒有規律，使用小工具將圖片路徑提取到TXT文本中導入方法。今天我們來講一下中琅條碼列印軟體中圖片名稱沒有規律，且在Excel表中保存著，按照Excel表中順序進行插入圖片的方法。

我們可以看到圖片是按照Excel表中的順序進行批量插入的，如果想要改變圖片的插入順序，只需要修改Excel表中圖片名稱順序即可，另外Excel表中的圖片名稱需要和圖片文件夾中的圖片名稱保持一致，否則無法導入到軟體中。

I. excel怎樣批量在批註插入圖片

Subpztp()

OnErrorResumeNext

DimcAsRange,P$,i&,a$,b$,arr,w!

P="F:唐獅圖片唐獅圖片"

ForEachcInRange([c2],Cells(Rows.Count,3).End(3))

Withc

.ClearComments

.AddComment

.Comment.Shape.Fill.UserPictureP&.Value&".jpg"

a=get_file_dim(P&.Value&".jpg")

Fori=1ToLen(a)

IfMid(a,i,1)Like"[0-9x]"Then

b=b&Mid(a,i,1)

EndIf

Next

arr=Split(b,"x")

b=""

w=200'設置圖片寬度

.Comment.Shape.Width=w

.Comment.Shape.Height=Val(arr(1))/Val(arr(0))*w

EndWith

Next

EndSub

Functionget_file_dim(ByValfilepathAsString)

arr=[{161,162,163,164,31}]

Dimbrr(),sz,iAsByte

ReDimbrr(1ToUBound(arr))

SetObiFolder=CreateObject("shell.Application").Namespace(Left(filepath,InStrRev(filepath,"")))

Fori=1ToUBound(arr)

sz=ObiFolder.getdetailsof(ObiFolder.Items.Item(Right(filepath,Len(filepath)-InStrRev(filepath,""))),arr(i))

IfszLike"*[0-9]x[0-9]*"Then

get_file_dim=sz

ExitFor

EndIf

Nexti

EndFunction