| 
                              
                                  Thema
                              
                           | 
                          
                              
                                  Datum 
                           | 
                          
                              
                                  Von Nutzer
                           | 
                          
                              
                                  Rating
                           | 
                          
                               
                                  Antwort 
                           | 
                      
                      
 | 
11.04.2020 13:34:27 | 
Matthias Lipps | 
 | 
 | 
 | 
11.04.2020 13:45:37 | 
Gast7777 | 
 | 
 | 
 | 
11.04.2020 18:22:40 | 
Gast13651 | 
 | 
 | 
 | 
11.04.2020 19:02:59 | 
Gast7777 | 
 | 
 | 
 | 
11.04.2020 19:37:04 | 
Matthias Lipps | 
 | 
 | 
 | 
11.04.2020 19:02:19 | 
Gast58607 | 
 | 
 | 
 | 
11.04.2020 19:42:04 | 
Matthias Lipps | 
 | 
 | 
  Word VBA ActiveX Kontrollkästchen per Variable ansprechen  | 
12.04.2020 00:43:29 | 
Gast59303 | 
 | 
 | 
 | 
12.04.2020 14:27:30 | 
Matthias Lipps | 
 | 
 | 
 | 
12.04.2020 16:20:39 | 
Gast31297 | 
 | 
 | 
                  
    
                    
             
								 
									
										Von: 
                                            Gast59303 | 
										Datum: 
                                            12.04.2020 00:43:29 | 
										Views:
                                             
                                            1204 | 
										Rating:
                                                                          | 
										Antwort: 
                                             
                                             
                                             | 
									
									
										Thema:
                                             
                                            Word VBA ActiveX Kontrollkästchen per Variable ansprechen | 
									
									
										|  
                                             
	Hallo, 
	das ist in Word ein bißchen ein Gewürge, Du mußt die Shapes-Collection durchlaufen, probier mal: 
Option Explicit
Public Sub test()
Dim objShape As Shape
Dim strKK As String
strKK = "KK2_1"
For Each objShape In ThisDocument.Shapes
   With objShape.OLEFormat
        If .ClassType = "Forms.CheckBox.1" And .Object.Name = strKK Then
           If .Object.Value Then
             Call MsgBox(.Object.Name & "  " & .ClassType) '// hier Dein eigentl. Code...
             Set objShape = Nothing
             Exit For
           End If
        End If
   End With
Next
End Sub
	...bzw. die InlineShapes-Col: 
Dim objInlineShape As InlineShape
'...
For Each objInlineShape In ThisDocument.InlineShapes
'...
Next 
	Gruß, 
     | 
									
								
							
 					
		   
 
                          
                        
                                
                    - Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
 
                                        - Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
 
                        - Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
 
                        - Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
 
                        - Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei 
    Antworten auf Ihren Beitrag zu benachrichtigen
 
                                    
                            
                             
                          
	
                         
                                  
                             
                             Bitte geben Sie ein aussagekräftiges Thema an. 
                            
                            Bitte geben Sie eine gültige Email Adresse ein!
                            
                            
                       
                                - Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
 
                                        - Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
 
                        - Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
 
                        - Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
 
                        - Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei 
    Antworten auf Ihren Beitrag zu benachrichtigen
 
                                    
                        
                            
                        
                         
                                                  
 
                                       
                            
                      
                          | 
                              
                                  Thema                               
                           | 
                          
                              
                                  Datum 
                           | 
                          
                              
                                  Von Nutzer
                           | 
                          
                              
                                  Rating
                           | 
                          
                               
                                  Antwort 
                           | 
                      
                      
 | 
11.04.2020 13:34:27 | 
Matthias Lipps | 
 | 
 | 
 | 
11.04.2020 13:45:37 | 
Gast7777 | 
 | 
 | 
 | 
11.04.2020 18:22:40 | 
Gast13651 | 
 | 
 | 
 | 
11.04.2020 19:02:59 | 
Gast7777 | 
 | 
 | 
 | 
11.04.2020 19:37:04 | 
Matthias Lipps | 
 | 
 | 
 | 
11.04.2020 19:02:19 | 
Gast58607 | 
 | 
 | 
 | 
11.04.2020 19:42:04 | 
Matthias Lipps | 
 | 
 | 
  Word VBA ActiveX Kontrollkästchen per Variable ansprechen  | 
12.04.2020 00:43:29 | 
Gast59303 | 
 | 
 | 
 | 
12.04.2020 14:27:30 | 
Matthias Lipps | 
 | 
 | 
 | 
12.04.2020 16:20:39 | 
Gast31297 | 
 | 
 |