word表格宏一鍵導入圖片

❶ word如何設置宏批量插入圖片到word表格里（每一行2到3個表格）

郵件合並功能，應該是不能實現的吧。
採用簡單的VBA宏編程，針對具體的表格格式，很容易實現的。可以hi我。

❷ 怎麼把圖片插到word表格裡面 word表格裡面怎麼插入圖片

品牌型號：戴爾成就Vostro 3000

系統版本：windows 10

軟體版本：WPS Office 2019

下面我們以wps office 2019軟體為例，把照片粘貼到word文檔的表格中操作如下：

1、游標點下要插入圖片的表格單元格；

2、在文檔上方的菜單欄中依次點：插入－－圖片－－來自文件；

3、彈出存放照片的路徑，然後點「打開」；

4、照片即插入到游標所在的單元格；

5、所插入的照片如果尺寸與單元格不合，可以對照片調大或調小的，點住照片四周的控制點進行拖動調節。圖片格式是「嵌入型」的，控制點是黑色小方框；其它的格式控制點是空心小圓圈。

6、把照片調節與單元格的差不多大小即可。

以上就是把圖片插到word表格的方法，你學會了嗎？

❸ 如何在Word表格中，批量自動插入圖片

我試了試，在word里似乎無法實現，不過在微軟公司的另一個軟體里能實現，不過依然沒有你說的那樣簡單。我用的是publisher。在publisher里，插入一個表格（幾乎跟在word里一樣）然後執行「插入——圖像點位符」插入圖像佔位符，並調整它使它適合表格式小。然後復制它，放到另一個表格里，然後選擇這兩個復制……這樣製作出八個圖像點位符，製作好之後點擊圖像點位符就能夠導入圖像了。這樣比直接插入的好處是：所有的圖像自動適合表格大小，而不用再手動調整。如果你用過Adobeindesign，你知道它是可以滿足你的要求的，不過這個軟體很大，使用起來也不是很方便。

❹ 求批量向word表格導入圖片方法！

1、將Word打開，找到「插入」菜單——>「圖片」——>「來自文件」,此時彈出的插入圖片對話框；2、此時你可以從[查找范圍]（左邊的黑色小三角下拉列表或者下方的位置）進入到你的圖片存放位置（此時應能看到縮略圖了）；2、①、按住Ctrl鍵不放，移動滑鼠到你所需插入的圖片，單擊左鍵選中若干所需的圖片，選完才可以放開Ctrl鍵，然後點「插入」即可在word中插入大批量圖片；2、②、按住Shift鍵選中第一幅需插入的圖片（此時shift鍵也不要放開），拖動右邊的滾動條至看見所需插入的圖片最後一張，滑鼠移動到所需插入的最後一張圖片並單擊選中，此時應該選擇了自第一張圖至最後一張圖之間的所有圖片，再點「插入」即可。最後介紹一種最簡單、最懶的方法（我就是用這種的）：3、①、打開Word；3、②、將所需圖片選中（選取的方法參照2），然後移動滑鼠至選中的圖片任意一張的上方，按住滑鼠左鍵不放將圖片「拖/拉」到Word文檔中，此時所有選中的圖片均「拖/拉」到了文檔之中了；

❺ 如何在word 的表格中批量插入圖片

1、例如：把網路經驗的LOGO批量插入到表格每一個單元格里。

❻ 怎樣用WORD的宏批量插入照片啊

WORD里的照片好像只能單張插入，不過可以錄制宏，讓打開要插入圖片的對話框，這樣時間也能省一些。錄制宏--保存--指定快捷鍵。

❼ 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、選中所有內容後設置居中排列——點擊文件——選項——顯示——段落標記——點擊確定即可

❽ 如何實現Word 中批量插入圖片

Sub批量添加圖片()
'程序功能：批量添加圖片宏
'作者Q：766110727
'日期：2017.06.07
'使用步驟1：word中ALT+11進入VBA宏界面；
'使用步驟2：將本段代碼從sub到endsub，全部粘到代碼框最後的空白處；
'使用步驟3：按F5執行代碼。
'說明：代碼按最直觀的邏輯寫的，也方便大家使用修改。
'OnErrorResumeNext
Dimn,圖片路徑1(),圖片路徑2(),圖片路徑3(),圖片路徑4(),圖片數量最大值
DimmyTableAsTable
'###################################################################
'#######第一部分：獲取每個文件夾下所有jpg圖片名，寫入相應數組#######
'###################################################################
n=0
圖1=Dir("I:	tjbt插入圖片圖片*.jpg")
DoWhile圖1<>""
n=n+1
ReDimPreserve圖片路徑1(1Ton)
圖片路徑1(n)="I:	tjbt插入圖片圖片"&圖1
圖1=Dir()
Loop
Ifn>圖片數量最大值Then圖片數量最大值=n
n=0
圖2=Dir("I:	tjbt插入圖片圖片2*.jpg")
DoWhile圖2<>""
n=n+1
ReDimPreserve圖片路徑2(1Ton)
圖片路徑2(n)="I:	tjbt插入圖片圖片2"&圖2
圖2=Dir()
Loop
Ifn>圖片數量最大值Then圖片數量最大值=n
n=0
圖3=Dir("I:	tjbt插入圖片圖片3*.jpg")
DoWhile圖3<>""
n=n+1
ReDimPreserve圖片路徑3(1Ton)
圖片路徑3(n)="I:	tjbt插入圖片圖片3"&圖3
圖3=Dir()
Loop
Ifn>圖片數量最大值Then圖片數量最大值=n
n=0
圖4=Dir("I:	tjbt插入圖片圖片4*.jpg")
DoWhile圖4<>""
n=n+1
ReDimPreserve圖片路徑4(1Ton)
圖片路徑4(n)="I:	tjbt插入圖片圖片4"&圖4
圖4=Dir()
Loop
Ifn>圖片數量最大值Then圖片數量最大值=n

'###################################################################
'##################第二部分：插入圖片到word表格中###################
'###################################################################
'新建一個一行兩列表格
SetmyTable=ActiveDocument.Tables.Add(Range:=ActiveDocument.Range(Start:=0,End:=0),NumRows:=1,NumColumns:=2)
'設定後續操作的目標表格為文檔的第一個表格
SetmyTable=ActiveDocument.Tables(1)
n=0
DoWhilen<圖片數量最大值
n=n+1
之前表格行數=myTable.Rows.Count
myTable.Rows.Last.Select
Selection.InsertRowsBelow4'下方插入4行
'第一行兩列，圖片序號12
myTable.Cell(Row:=之前表格行數+1,Column:=1).Range.InsertAfterText:="圖片1"
myTable.Cell(Row:=之前表格行數+1,Column:=2).Range.InsertAfterText:="圖片2"
myTable.Cell(Row:=之前表格行數+3,Column:=1).Range.InsertAfterText:="圖片3"
myTable.Cell(Row:=之前表格行數+3,Column:=2).Range.InsertAfterText:="圖片4"
'第二行兩列，插入圖片並設置圖片大小
myTable.Cell(Row:=之前表格行數+2,Column:=1).Range.InlineShapes.AddPictureFileName:=_
圖片路徑1(n),LinkToFile:=False,SaveWithDocument:=True
myTable.Cell(Row:=之前表格行數+2,Column:=2).Range.InlineShapes.AddPictureFileName:=_
圖片路徑2(n),LinkToFile:=False,SaveWithDocument:=True
myTable.Cell(Row:=之前表格行數+4,Column:=1).Range.InlineShapes.AddPictureFileName:=_
圖片路徑3(n),LinkToFile:=False,SaveWithDocument:=True
myTable.Cell(Row:=之前表格行數+4,Column:=2).Range.InlineShapes.AddPictureFileName:=_
圖片路徑4(n),LinkToFile:=False,SaveWithDocument:=True
Loop

ActiveDocument.Tables(1).Rows(1).Delete'剛開始建的表格中第一行是空行，刪掉

'###################################################################
'######################第三部分：圖片格式處理#######################
'###################################################################
'統一設置圖片長寬，美化文檔。這里會卡好久時間，按需要是否添加本段代碼
Forn=1ToActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(n).Height=210'設置高度
ActiveDocument.InlineShapes(n).Width=110'設置寬度
Nextn
EndSub

❾ 【求WORD宏】在word文檔的表格中批量插入指定的照片

郵件合並基本能滿足你的要求

把這個模板放到和照片同一個文件夾中，如果照片名字不對，請自己修改公式

利用word郵件合並批量導入照片_網路文庫

http://wenku..com/link?url=mErinreynG9hz6dDy5BcFz_AVc8XchbDLRh3y