将图像添加到Word文档并使用VBA进行缩放
如何使用VBA以编程方式将图像添加到word文档中 我曾尝试向word文档添加书签,并尝试添加图像,但它总是添加到表单顶部,而不是书签区域。我应该坚持使用书签还是有其他方法添加图像 请参见下面的我的代码:将图像添加到Word文档并使用VBA进行缩放,vba,ms-word,Vba,Ms Word,如何使用VBA以编程方式将图像添加到word文档中 我曾尝试向word文档添加书签,并尝试添加图像,但它总是添加到表单顶部,而不是书签区域。我应该坚持使用书签还是有其他方法添加图像 请参见下面的我的代码: Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Set wrdApp = CreateObject("Word.Application") Dim objWdRange As Word.Range Dim GraphIma
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = CreateObject("Word.Application")
Dim objWdRange As Word.Range
Dim GraphImage As String
Dim shortString As String
shortString = Range("short").Value
GraphImage = "http://xxx.xxxxx.com/xxx/xxx.png?instrument=Image.png"
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("C:\Program Files\My Dropbox\dailystrategy.doc")
Set objWdRange = wrdDoc.Content
With wrdDoc
If wrdDoc.Bookmarks.Exists("shortString ") Then
wrdDoc.Bookmarks("shortString ").Range.Text = shortString
End If
If wrdDoc.Bookmarks.Exists("GraphImage") Then
wrdDoc.Bookmarks("GraphImage").Range.InlineShapes.AddPicture Filename:=GraphImage, LinkToFile:=False, SaveWithDocument:=True
End If
wrdDoc.SaveAs "c:\temp\test.doc"
' close the document
Set wrdDoc = Nothing
Set wrdApp = Nothing
End With
关于首先,我们需要清理一下您的代码,如下所示。这在我的网站上运行得很好-它将图像放在GraphicImage书签的正前方,而不是文档的顶部-但可能您的图像太大,以至于延伸到顶部
Dim objWdRange As Word.Range
Dim GraphImage As String
Dim shortString As String
shortString = Range("short").Value '? don't know what this is for
GraphImage = "http://xxx.xxxxx.com/xxx/xxx.png?instrument=Image.png"
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("C:\Program Files\My Dropbox\dailystrategy.doc")
Set objWdRange = wrdDoc.Content '? don't know what this is for
With wrdDoc
If .Bookmarks.Exists("shortString ") Then
.Bookmarks("shortString ").Range.Text = shortString
End If
If .Bookmarks.Exists("GraphImage") Then
Dim wrdPic As Word.InlineShape
Set wrdPic = .Bookmarks("GraphImage").Range.InlineShapes.AddPicture(FileName:=GraphImage, LinkToFile:=False, SaveWithDocument:=True)
wrdPic.ScaleHeight = 50
wrdPic.ScaleWidth = 50
End If
.SaveAs "c:\temp\test.doc"
End With
wrdDoc.Close
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
编辑:2010年1月11日 上述代码已更改为包含
If .Bookmarks.Exists("GraphImage") Then
Dim wrdPic As Word.InlineShape
Set wrdPic = .Bookmarks("GraphImage").Range.InlineShapes.AddPicture(FileName:=GraphImage, LinkToFile:=False, SaveWithDocument:=True)
wrdPic.ScaleHeight = 50
wrdPic.ScaleWidth = 50
End If
这将图片设置为对象,然后使用缩放方法
ScaleHeight
和ScaleWidth
使其高度和宽度都减小50%。hi,谢谢你说的对,图像插入到了正确的位置,但它的尺寸对于页面来说太大了。是否有使用VBA编程设置图像尺寸的方法?是的,可以。您可以使用内联形状的高度/宽度属性,也可以使用ScaleHeight/ScaleWidth,因为我已经用更新了上面的代码。