vba向word单元格插入图片

① 如何运用vba将指定图片插入word中

例如，新建一个4行1列的表格，然后在Cell(3, 1)内插入图片：
Sub Macro1()
Dim mysel
mysel = ActiveDocument.Tables(1).Cell(3, 1)
mysel.InlineShapes.AddPicture FileName:="C:\a.jpg", LinkToFile:=True, SaveWithDocument:=True
End Sub

② 怎么用excel vba操控word插入图片，求高手给一小段示例

Sub GenDocfromExcel()

'office 2003, excel控制word,生成新文件，插入图片和文件名，保存
'VBA工具/引用中要勾选Microsoft Word 11.0 Object Library

Dim WordApp As Word.Application
Set WordApp = CreateObject("Word.Application")
'WordApp.Visible = True

WordApp.Documents.Add

With WordApp.Selection
'第1个图片和文件名
a$ = "C:\WINDOWS\Web\Wallpaper\Tulips.jpg"
.InlineShapes.AddPicture Filename:=a$
.TypeParagraph
.TypeText Text:=a$
.TypeParagraph
.TypeParagraph
'第2个图片和文件名
a$ = "C:\WINDOWS\Web\Wallpaper\Azul.jpg"
.InlineShapes.AddPicture Filename:=a$
.TypeParagraph
.TypeText Text:=a$
.TypeParagraph
.TypeParagraph
End With

WordApp.ActiveDocument.SaveAs "d:/temp.doc"

WordApp.Quit

Set WordApp = Nothing

End Sub

③ 在word中自动插入图片 vba，这是一段代码

你的第1段代码可以插入图片啊，有什么问题？
第2段的话，把倒数第2行的with移到上一行end 的后面。
倒数第6行的 ,,Flase 改成,Flash,(逗号移到flash后面)
VBA不是很熟，希望能帮到你。

④ VBA如何实现插入图片

可以写，要根据你实际的来，比如 文件夹路径

⑤ 如何用VBA把Excel中的数据和文件夹中的图片放入到Word文档中

把Excel中的数据和文件夹中的图片放入到Word文档中方法：

1、打开EXCEL文件，复制单元格数据区域。

⑥ vba中怎么将图片插入到单元格旁边

Range("E12").Select
ActiveSheet.Pictures.Insert("拦空C:\a.bmp").Select
Application.CommandBars("Picture").Visible = ”图片地址“
Range("F8"哗衡搏).Select
ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.IncrementLeft 上坐标数值
Selection.ShapeRange.IncrementTop 下坐标数值
Selection.ShapeRange.IncrementLeft 左坐标数值
Selection.ShapeRange.IncrementTop 右坐标数值乱祥
End Sub

⑦ 利用VBA如何将批量图片导入WORD的指定表格格式里

将excel表格中的数据批量插入到word中的操作方法：
1、单击插入----对象按钮；

2、弹出插入对话框对话框，选择由文件创建对话框，单击浏览按钮；

3、弹出浏览对话框，选择需要插入有Excel文件；

4、单击插入按钮即可。

注：
（1）若选中链接到文件，源文件修改，Word中的表格也随之改变；
（2）若选中显示为图片，则以图标的形式插入到Word，双击可以打开其源文件。

⑧ VBA WORD插入图片到表格

楼桐岩主能否将你想要的效果截图看看？
不誉源知道楼主用的是哪个版本的word，如果是03版的，应庆轮态该可以试试录制宏看看。

⑨ 关于用宏（vba）在word中插入指定图片并保存在与图片名字相同的word中

给你一条思路吧。
第一，打开word文件，用录制宏录一段插入图片的代码（这里注意代码的路径和图片名）；再录一段保存文件到A目录的代码。备用；
第二，新建一个excel文件，将你A1到A3文件夹里需要建文件的人名全部列到excel的某一列中；
第三，在excel里写vba代码，循环执行这些人名，每个人名都有新建、插入图片、保存这个过程（这里会用到第一步录到的代码）。
请自己尝试学习并应用！

⑩ 用vba如何批量插入图片,公式详解

您好，根据您的需求，批量插入图片的参考代码如下：

OptionExplicit

PublicSub批量插入图片()
DimrngPictureAsRange

DimlngRowAsLong
DimintColAsInteger

WithActiveSheet
ForlngRow=1To16Step8
ForintCol=1To12Step3
SetrngPicture=.Cells(lngRow+1,intCol+2)
笑好rngPicture.Select

With.Pictures.Insert("E:坑图"&rngPicture.Value&".jpg").ShapeRange
.Height=70.5
.Width=105
EndWith
Next
Next
EndWith

SetrngPicture=Nothing
EndSub

PS：具体使用时请自行粗升源修改演示代码中的循环起止行、起止列和步进值。如果图片插入到单元格后出现偏移，请设岩态置 Picture 的 Left 属性和 Top 属性。

另外，也可以设置图片在单元格内水平居中（比单元格大的图片暂不考虑），参考代码如下：

OptionExplicit

PublicSub批量插入图片水平居中()
DimrngPictureAsRange

DimlngRowAsLong
DimintColAsInteger

WithActiveSheet
ForlngRow=1To16Step8
ForintCol=1To12Step3
SetrngPicture=.Cells(lngRow+1,intCol+2)
rngPicture.Select

With.Pictures.Insert("E:坑图"&rngPicture.Value&".jpg").ShapeRange
.Left=rngPicture.Left+(rngPicture.Width-.Width)/2
.Top=rngPicture.Top+(rngPicture.Height-.Height)/2
EndWith
Next
Next
EndWith

SetrngPicture=Nothing
EndSub