怎么画三圆交叉有阴影的图

dongdonggege

请问怎么画三圆交叉有阴影的图？让图形更精确。

有程序更好

dongdonggege

有人做的gif制作过程，能否看到。

蓝桥玄霜

请见附件。

mmwwdd

蓝桥玄霜 发表于 2023-3-19 13:23
请见附件。

这也行?版主厉害，膜拜

dongdonggege

蓝桥玄霜 发表于 2023-3-19 13:23
请见附件。

谢谢版主，虽然不一定符合我的本意，但是也为我提供一些思路和方法。

jz_l

dongdonggege

jz_l 发表于 2023-3-20 16:09

选中，中间的部分，没看明白，现在我做了一个Word，版本较低，2003，但是有个问题，我复制，粘贴一个图形，就是不能定位。这个图形会朝上跑，没法弄下来，所以图形变成半边，能帮我弄下吗？

就是选中的那部分，Word、PowerPoint、Excel，画图形都类似，麻烦了，谢谢。

dongdonggege

jz_l 发表于 2023-3-20 16:09

就是我的程序，倒数第三行，第四行左右。

jz_l

dongdonggege 发表于 2023-3-20 16:27
就是我的程序，倒数第三行，第四行左右。

2003？版本太低，无能为力。
还是装个WPS吧，也可以用。

你的附件啥也没有啊……

dongdonggege

jz_l 发表于 2023-3-20 17:12
2003？版本太低，无能为力。
还是装个WPS吧，也可以用。

你会不会啊，我的程序在这里。你的程序倒什么都没有。

1. 
   
2. Sub test1()
   
3.     Set mydoc = ActiveDocument
   
4.     Set shp1 = mydoc.Shapes.AddShape(msoShapeOval, 200, 100, 100, 100) '1插入第1个圆
   
5.     Set shp2 = mydoc.Shapes.AddShape(msoShapeOval, 250, 100, 100, 100) '2插入第2个圆
   
6.     Set shp3 = mydoc.Shapes.AddShape(msoShapeOval, 225, 150, 100, 100) '3插入第3个圆
   
7.     With shp3
   
8.         .Fill.Patterned msoPatternDarkDownwardDiagonal
   
9.         '设置图片格式 --填充颜色 - -填充效果 - -图案
   
10.         '.ZOrder msoSendToBack '置于底层
    
11.         '.ZOrder msoBringToFront '置于顶层
    
12.         .ZOrder msoSendBackward '下移一层
    
13.     End With
    
14.     With shp1
    
15.         '.Line.Weight = 1.25 '2线型0.75--1.25
    
16.         .Fill.Transparency = 0.99 '透明度
    
17.         .ZOrder msoBringForward '上移一层
    
18.     End With
    
19.     With shp2
    
20.         '.Line.Weight = 1.25 '2线型0.75--1.25
    
21.         .Fill.Transparency = 0.99 '透明度
    
22.         .ZOrder msoBringForward '上移一层
    
23.     End With
    
24.     mydoc.Shapes.Range(Array(shp1.Name, shp2.Name, shp3.Name)).Select '选择3个圆
    
25.     Selection.Copy
    
26.     Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile '增强型图元文件
    
27.     mydoc.Shapes(mydoc.Shapes.Count).Select
    
28.     Selection.ShapeRange.PictureFormat.CropBottom = CentimetersToPoints(3.32) '自上向下剪裁
    
29.     shp1.Delete: shp2.Delete: shp3.Delete:
    
30.     Set shp4 = mydoc.Shapes(mydoc.Shapes.Count)
    
31.    
    
32.     Set shp6 = mydoc.Shapes.AddShape(msoShapeOval, 250, 100, 100, 100) '2插入第5个圆
    
33.     With shp6
    
34.         .Fill.Patterned msoPatternDarkDownwardDiagonal
    
35.         .ZOrder msoSendToBack '置于底层
    
36.     End With
    
37.     Set shp5 = mydoc.Shapes.AddShape(msoShapeOval, 200, 100, 100, 100) '1插入第4个圆
    
38.     With shp5
    
39.         .Fill.Transparency = 1 '透明度
    
40.         .ZOrder msoBringForward '上移一层
    
41.     End With
    
42.     Set shp7 = mydoc.Shapes.AddShape(msoShapeOval, 225, 150, 100, 100) '3插入第6个圆
    
43.     With shp7
    
44.         .Fill.Transparency = 1 '透明度
    
45.         .ZOrder msoBringForward '上移一层
    
46.     End With
    
47.    
    
48.     mydoc.Shapes.Range(Array(shp5.Name, shp6.Name, shp7.Name)).Select '选择3个圆
    
49.     Selection.Copy
    
50.    
    
51.     Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile '增强型图元文件
    
52.     shp5.Delete: shp6.Delete: shp7.Delete
    
53.     mydoc.Shapes(mydoc.Shapes.Count).Select
    
54.     Selection.ShapeRange.PictureFormat.CropTop = CentimetersToPoints(1.95) '自上向下剪裁
    
55.     Selection.ShapeRange.PictureFormat.CropRight = CentimetersToPoints(2.66) '自右向左剪裁
    
56.     Set shp8 = mydoc.Shapes(mydoc.Shapes.Count)
    
57.     Selection.Copy
    
58.     Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile '增强型图元文件
    
59.    
    
60.     Set shp9 = mydoc.Shapes(mydoc.Shapes.Count)
    
61.     shp9.Select
    
62.     Selection.ShapeRange.Flip msoFlipHorizontal  '水平翻转
    
63.     mydoc.Shapes.Range(Array(shp4.Name, shp8.Name, shp9.Name)).Select '选择3个
    
64.    
    
65.     Selection.ShapeRange.IncrementTop 100
    
66.     shp9.Select
    
67.     Selection.ShapeRange.IncrementTop 52.4
    
68.     Selection.ShapeRange.IncrementLeft 75.6
    
69.    
    
70.    
    
71.     ActiveDocument.Shapes.Range(Array(shp4.Name, shp8.Name, shp9.Name)).Group
    
72. End Sub
    

复制代码

Word2003，文件里有，看看吧。
就是调不准上下左右的粘贴距离。