位置示意图向守版主求助

tudi6709

你好：

谢谢你对我们这些初入道的朋友，极大的关怀。愿更多喜欢WORD的朋友，到这里学习。问题见附件：

euVAWvmy.rar (248.8 KB, 下载次数: 53)

2004-12-3 22:28 上传

点击文件名下载附件
位置示意图向守版主求助

如意

没看明白楼主的意思。[em06]

你是想生成图2呢，还是想做小旗呀。

守柔

楼主主要问题是解决一：自动插入小红旗；二，对小红旗进行自动编号

我做了一个简单的代码，按下CTRL+1即可自动出现带编号的小红旗，移到适当即可

Eyy9Wd9U.zip (136.42 KB, 下载次数: 49)

2004-12-4 09:43 上传

点击文件名下载附件
位置示意图向守版主求助

以下代码供参考：

'* +++++++++++++++++++++++++++++++++++++++

'* Created By 守柔(ShouRou)@ExcelHome 2004-12-4 09:40:01

'仅测试于System: Windows NT Word: 10.0 Language: 2052

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* --------------------------------------------------------------------------

Sub AutoInsertShapes() Dim i As Integer On Error Resume Next '错误继续 With ActiveDocument .Range(0, 0).Select '文档起点选定 If .Shapes.Count = 0 Then '如果没有自选图形 i = 1 '编号从1开始 Else i = .Shapes.Count '等于自选图形数目,此处假定为1个自选图形 End If '插入关联模板中的自动图文集,用户可以对自动图文集修改并保存为原名,注意保存模板名称 '通过修改该并保存自动图文集,可将其格式自动应用 .AttachedTemplate.AutoTextEntries("小红旗").Insert Where:=Selection.Range, RichText:=True '修改编号 .Shapes(.Shapes.Count).GroupItems(1).TextFrame.TextRange.Text = i '选定该组合图形 .Shapes(.Shapes.Count).Select '设置原始位置,可适当更改,此处从略,由用户自行移动至适当位置 Selection.ShapeRange.Top = 200 Selection.ShapeRange.Left = 300 End With End Sub '----------------------

[此贴子已经被作者于2004-12-4 9:43:22编辑过]

tudi6709

谢谢版主：

只解决了问题之一，还有一个问题，

就是当抓一幅图时，裁剪一个固定值(例：上0.5；下1；左1.5；右1.5)后生成一个固定值的示意图(例：10*15)。

守柔

以下是引用tudi6709在2004-12-4 10:38:00的发言：

谢谢版主：

只解决了问题之一，还有一个问题，

就是当抓一幅图时，裁剪一个固定值(例：上0.5；下1；左1.5；右1.5)后生成一个固定值的示意图(例：10*15)。

一：这个问题你提了吗？我怎么好象没有看到？

二：你必须有个详细说明，不要例，就是你要的结果写出来，图片的格式要求？裁剪与缩放是有区别的，这可以上传一个附件，以便我理解并实施。

tudi6709

可能是我没有表达清楚。

第一步是：当抓一幅图时，这幅图可能四周或者上下有工具栏，但只要中间的图幅。生成示意图的底图。(裁剪)

第二步：插红旗

第三步：在文档中示意图有大有小，付值生成需要大小的示意图。再插入文档中。(缩放)

守柔

以下是引用tudi6709在2004-12-4 11:13:00的发言：

可能是我没有表达清楚。

第一步是：当抓一幅图时，这幅图可能四周或者上下有工具栏，但只要中间的图幅。生成示意图的底图。(裁剪)

第二步：插红旗

第三步：在文档中示意图有大有小，付值生成需要大小的示意图。再插入文档中。(缩放)

我对楼主的问题感到困惑：

图片相对于红旗来说是少数，难道这个你也不愿意操作吗？

这个也要编程解决吗？

镭神之锤

不要老是问别人，自己想办法解决！！要是没有网络，我看你怎么办！！！！

xxm

没到要象复印★那样复制“小红旗”图

xxm

求助,想要找类似于复印★那样,去复制“小红旗”字图