请选择 进入手机版 | 继续访问电脑版
查看: 189|回复: 0

[.NET开发] VBA在活动的Word文档光标处粘贴选中的Excel Chart图表

3万

主题

3万

帖子

10万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
100197
发表于 2015-11-23 17:52:02
这个程序复制 活跃的 嵌入式图表 作为一个 图片从 一个 工作表 然后 粘贴在光标 位置的 活动 文档
  1. Sub ChartToDocument()
  2. ' Set a VBE reference to Microsoft Word Object Library
  3. Dim WDApp As Word.Application
  4. Dim WDDoc As Word.Document
  5. ' Make sure a chart is selected
  6. If ActiveChart Is Nothing Then
  7. MsgBox "Please select a chart and try again.", vbExclamation, _
  8. "No Chart Selected"
  9. Else
  10. ' Reference existing instance of Word
  11. Set WDApp = GetObject(, "Word.Application")
  12. ' Reference active document
  13. Set WDDoc = WDApp.ActiveDocument
  14. ' Copy chart as a picture
  15. ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, _
  16. Format:=xlPicture
  17. ' Paste chart at cursor position
  18. WDApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, _
  19. Placement:=wdInLine, DisplayAsIcon:=False
  20. ' Clean up
  21. Set WDDoc = Nothing
  22. Set WDApp = Nothing
  23. End If
  24. End Sub
复制代码


回复

使用道具 举报