关于表单控件VBA Shapes 设置不可编辑

jygzcj

shapes这个对象属性好多呀，有没有介如详细的教程呀？

ning84

1. Sub ll()
   
2.    Dim Shp As Shape, ShpRng As ShapeRange, ShpRng1 As ShapeRange
   
3.    Dim Sld As Slide
   
4.    Dim GroupShps As GroupShapes
   
5.    Dim ii
   
6.    Dim S
   
7.        Set ShpRng = Application.ActiveWindow.Selection.ShapeRange
   
8.        Set Sld = ShpRng.Parent
   
9.        Debug.Print ShpRng.Name
   
10.        ShpRng.Name = "A"
    
11.       
    
12.        Set Shp = Sld.Shapes("A")
    
13.        Debug.Print Shp.Name, Shp.AutoShapeType
    
14.        Stop
    
15.        Set ShpRng = Sld.Shapes.Range("A")
    
16.        Debug.Print ShpRng.Name
    
17.        Stop
    
18.        Stop
    
19.        For ii = 1 To ShpRng.GroupItems.Count
    
20.            Set Shp = ShpRng.GroupItems(ii)
    
21.            'Debug.Print Shp.Name
    
22.            Stop
    
23.            Set Shp = ShpRng.GroupItems("矩形 3")
    
24.            Debug.Print Shp.Name
    
25.            Stop
    
26.        Next ii
    
27.       
    
28. End Sub
    

复制代码