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

yzzgzh

各位老师好：
现在碰到一个难题，需要对表单控件进行设置为----灰色不可编辑状态（非隐藏），烦请老师赐教，感激不尽；

yzzgzh

花时间弄出了Shapes的全部属性和方法：

Sheet1.Shapes("Option Button 5").Adjustments
Sheet1.Shapes("Option Button 5").AlternativeText
Sheet1.Shapes("Option Button 5").Application
Sheet1.Shapes("Option Button 5").Apply
Sheet1.Shapes("Option Button 5").AutoShapeType
Sheet1.Shapes("Option Button 5").BackgroundStyle
Sheet1.Shapes("Option Button 5").BlackWhiteMode
Sheet1.Shapes("Option Button 5").BottomRightCell
Sheet1.Shapes("Option Button 5").Callout
Sheet1.Shapes("Option Button 5").Chart
Sheet1.Shapes("Option Button 5").Child
Sheet1.Shapes("Option Button 5").ConnectionSiteCount
Sheet1.Shapes("Option Button 5").Connector
Sheet1.Shapes("Option Button 5").ConnectorFormat
Sheet1.Shapes("Option Button 5").ControlFormat
Sheet1.Shapes("Option Button 5").Copy
Sheet1.Shapes("Option Button 5").CopyPicture
Sheet1.Shapes("Option Button 5").Creator
Sheet1.Shapes("Option Button 5").Cut
Sheet1.Shapes("Option Button 5").Delete
Sheet1.Shapes("Option Button 5").Duplicate
Sheet1.Shapes("Option Button 5").Fill
Sheet1.Shapes("Option Button 5").Flip
Sheet1.Shapes("Option Button 5").FormControlType
Sheet1.Shapes("Option Button 5").Glow
Sheet1.Shapes("Option Button 5").GroupItems
Sheet1.Shapes("Option Button 5").HasChart
Sheet1.Shapes("Option Button 5").HasSmartArt
Sheet1.Shapes("Option Button 5").Height
Sheet1.Shapes("Option Button 5").HorizontalFlip
Sheet1.Shapes("Option Button 5").Hyperlink
Sheet1.Shapes("Option Button 5").ID
Sheet1.Shapes("Option Button 5").IncrementLeft
Sheet1.Shapes("Option Button 5").IncrementRotation
Sheet1.Shapes("Option Button 5").IncrementTop
Sheet1.Shapes("Option Button 5").Left
Sheet1.Shapes ("Option Button 5").Line()
Sheet1.Shapes("Option Button 5").LinkFormat
Sheet1.Shapes("Option Button 5").LockAspectRatio
Sheet1.Shapes("Option Button 5").Locked
Sheet1.Shapes("Option Button 5").Name
Sheet1.Shapes("Option Button 5").Nodes
Sheet1.Shapes("Option Button 5").OLEFormat
Sheet1.Shapes("Option Button 5").OnAction
Sheet1.Shapes("Option Button 5").Parent
Sheet1.Shapes("Option Button 5").ParentGroup
Sheet1.Shapes("Option Button 5").PickUp
Sheet1.Shapes("Option Button 5").PictureFormat
Sheet1.Shapes("Option Button 5").Placement
Sheet1.Shapes("Option Button 5").Reflection
Sheet1.Shapes("Option Button 5").RerouteConnections
Sheet1.Shapes("Option Button 5").Rotation
Sheet1.Shapes("Option Button 5").ScaleHeight
Sheet1.Shapes("Option Button 5").ScaleWidth
Sheet1.Shapes("Option Button 5").Select
Sheet1.Shapes("Option Button 5").SetShapesDefaultProperties
Sheet1.Shapes("Option Button 5").Shadow
Sheet1.Shapes("Option Button 5").ShapeStyle
Sheet1.Shapes("Option Button 5").SmartArt
Sheet1.Shapes("Option Button 5").SoftEdge
Sheet1.Shapes("Option Button 5").TextEffect
Sheet1.Shapes("Option Button 5").TextFrame
Sheet1.Shapes("Option Button 5").TextFrame2
Sheet1.Shapes("Option Button 5").ThreeD
Sheet1.Shapes("Option Button 5").Title
Sheet1.Shapes("Option Button 5").Top
Sheet1.Shapes("Option Button 5").TopLeftCell
Sheet1.Shapes("Option Button 5").Type
Sheet1.Shapes("Option Button 5").Ungroup
Sheet1.Shapes("Option Button 5").VerticalFlip
Sheet1.Shapes("Option Button 5").Vertices
Sheet1.Shapes("Option Button 5").Visible '显示和隐藏表单控件
Sheet1.Shapes("Option Button 5").Width
Sheet1.Shapes("Option Button 5").ZOrder
Sheet1.Shapes("Option Button 5").ZOrderPosition

phsu

將Enabled屬性設為False試試看。

yzzgzh

phsu 发表于 2018-7-18 15:28
將Enabled屬性設為False試試看。

老师你好：表单控件根本没有Enabled属性

yzzgzh

难道真的是个难题，顶起来，让更多人看到

phsu

Sheet1.Shapes("Option Button 5").ControlFormat.Enabled = False

ning84

1. Private Sub ll()
   
2.     Dim Pres As Presentation
   
3.     Dim Sld As Slide
   
4.     Dim ShpRng As ShapeRange
   
5.     Dim Shp As Shape
   
6.         Set Pres = Application.ActivePresentation
   
7.         Set Sld = Pres.Slides(1)
   
8.         For ii = 1 To Sld.Shapes.Count
   
9.               Set Shp = Sld.Shapes(ii)
   
10.               'Debug.Print Shp.Name, Shp.Type
    
11.               If Shp.Type = 2 Then 'msoAutoShape Then
    
12.                    Set ShpRng = Sld.Shapes.Range(Shp.Name)
    
13.                    Exit For
    
14.               End If
    
15.         Next ii
    
16.         ''
    
17.         With ShpRng.Adjustments
    
18.             Debug.Print ShpRng.AutoShapeType, ShpRng.Name
    
19.             For ii = 1 To .Count - 2
    
20.                   Debug.Print .Item(ii), , ii, .Count
    
21.             Next ii
    
22.             .Item(1) = -0 '-0.01
    
23.             Stop
    
24.             Stop
    
25.         End With
    
26. End Sub

复制代码

ning84

1. Private Sub ll()
   
2.    Dim AddArr
   
3.    Dim Pres As Presentation
   
4.    Dim Sld As Slide, S(1 To 7) ' As Slide
   
5.         AddArr = Array("兰州", "珠海", "武汉", "北京", "抚远", "漠河", "三沙", "喀什")
   
6.         Set Pres = Application.ActivePresentation
   
7.         Set Sld = Pres.Slides(1)
   
8.         Sld.Name = AddArr(0)
   
9.         
   
10.         For ii = UBound(AddArr) To 1 Step -1
    
11.             Set S(ii) = Sld.Duplicate
    
12.             S(ii).Name = AddArr(ii)
    
13.         Next ii
    
14. End Sub
    
15. 
    

复制代码

ning84

1. Sub ll1()
   
2.    Dim AddArr
   
3.         AddArr = Array("兰州", "珠海", "武汉", "北京", "抚远", "漠河", "三沙", "喀什")
   
4.    Dim Pres As Presentation   
   
5.    Dim Sld  As Slide
   
6.    Dim xChart As Chart
   
7.        Set Pres = Application.ActivePresentation
   
8.        For ii = 0 To UBound(AddArr)
   
9.             Set Sld = Pres.Slides(AddArr(ii))
   
10.             Set xChart = Sld.Shapes("C1").Chart
    
11.             Debug.Print Sld.Name; xChart.Name
    
12.             xChart.ChartData.Activate
    
13.        Next ii
    
14. End Sub
    

复制代码

DBear~

yzzgzh 发表于 2018-7-18 12:06
花时间弄出了Shapes的全部属性和方法：

Sheet1.Shapes("Option Button 5").Adjustments

牛啊,谢谢 前辈的铺路 很好的学习资料!