位置示意图向守版主求助

你好：

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

euVAWvmy.rar (248.8 KB)

euVAWvmy.rar (248.8 KB)
位置示意图向守版主求助
下载次数: 26

2004-12-3 22:28

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

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

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

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

Eyy9Wd9U.zip (136.42 KB)

Eyy9Wd9U.zip (136.42 KB)
位置示意图向守版主求助
下载次数: 29

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 IntegerOn Error Resume Next'错误继续With ActiveDocument.Range(0, 0).Select'文档起点选定If .Shapes.Count = 0 Then'如果没有自选图形i = 1'编号从1开始Elsei = .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 = 200Selection.ShapeRange.Left = 300End WithEnd Sub'----------------------

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

谢谢版主：

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

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

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

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

可能是我没有表达清楚。

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

第二步：插红旗

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

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

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

这个也要编程解决吗？

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