埃魅知识百科 > VB如何将picturebox中生成的图片插入到word报告的指定位置

VB如何将picturebox中生成的图片插入到word报告的指定位置

2025-12-14 10:26:58

推荐回答（3个）

回答1：

doc.Shapes.AddPicture App.Path & "\位移.jpg", False, True, 0, 120, 450, 200
后面的数字分别代表图片在word中的位置的左、高，以及图片自身的长度和高度

回答2：

'替换图片
Sub pic(ByVal img As Image, ByVal czp As String)
Clipboard.Clear() '清空剪贴板
Clipboard.SetImage(img) '把PictureBox1.Image图片放到剪贴板
WDAPP.Selection.Find.ClearFormatting()
WDAPP.Selection.Find.Replacement.ClearFormatting()
With WDAPP.Selection.Find
.Text = czp '要替换的字符
.Replacement.Text = "^c" '替换成PictureBox1.Image里的图片
.Forward = True
.Wrap = 1
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
WDAPP.Selection.Find.Execute(Replace:=2)
End Sub

回答3：

我想我可以做一个例子给你。