Word中在指定位置插入图形问题

jwqu 2008-04-17 10:27:54

最近在开发一个程序，功能是这样的：

当进行绘图是，对于当前的桌面进行截屏（当前是以Word文档问背景），并在截屏的图片贴与Dialog上面，即可在其上进行绘图

绘图完毕后，我想把这些图形（直线、矩形、圆etc.）插入到当前开启的Word文档中。

但是简单的调用Word提供的函数进行插入时，图形的坐标开始是以桌面的左上角为原点的，但是插入后，图形以空白的文档区域为原点，所以这里的图形位置发生明显的变化。

而我想达到的最终效果是，让图形位置按照原来的位置在Word文档中显示。

这期间需要做一个坐标转换。

解决思路：
要是能够找到空白区域的坐标在全屏坐标中的位置偏移的话，应该能够解决这个问题。
可我取不到这个参数。唉！~~

谢谢大家

...全文

367 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

knowledge_Is_Life 2008-04-30

打赏
举报

回复

我也想知道，正在找這方面的資料~~~~~

jwqu 2008-04-19

打赏
举报

回复

嗯，我试试看

JackGu2005 2008-04-18

打赏
举报

回复

不可以在插入图形后改变位置吗？

ActiveDocument.Shapes(1).Top = 30
ActiveDocument.Shapes(1).Left = 30

图片插入word模板文件中的指定位置，并生成pdf文件

在Word中插入*.dwg文件在Word稳当界面选择：插入——>文本——>对象——>AutoCAD图形。如下两图所示：图形大小及周边空白的消除通过上面的方式直接创建的*.dwg文件会因为页面布局和展示图形的比例大小留下较多的空白，不利于Word排版，有时还会影响阅读。这个时候可以考虑在CAD编辑界面中选择视图->模型视口->视口配置里面适合的布局，然后把图形放置到合适的尺寸就可以了。下面的图片是以CAD2016为例的展示： ...

/// <summary> /// 在指定点处插入一个图片(按长宽比例缩放) /// </summary> /// <param name="doc"></param> /// <param name="pic"></param> /// <...

Dim WordApp As Object Set WordApp = CreateObject("Word.Application") WordApp.Visible = True Dim WordDoc As Object Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\TEST.docx") PicPath="图片地址" WordApp.ActiveDocument.Bookmarks("BM1_1").Range.Se.

思路： 1、Word建书签，不会的自己百度； 2、EXCEL中复制； 3、Word中找到书签并选中，粘贴或复制。注意：一定要在EXCEL工具－引用 “Microsoft Word 1?.0 Object Library”，否则一些Word中的类无法使用的。 Sub test() Dim Sheet As Worksheet Set Sheet = ThisWorkbook.Shee...

Office开发/ VBA

5,139

社区成员

17,886

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章