Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
For Each shp In ActiveDocument.InlineShapes
On Error Resume Next
If TypeName(shp.OLEFormat.Object) = "CheckBox" Then
MsgBox shp.OLEFormat.Object.Name & vbLf & shp.OLEFormat.Object.Caption & vbLf & shp.OLEFormat.Object.Value
End If
Next
For Each oCtl In ActiveDocument.InlineShapes
If oCtl.OLEFormat.ClassType = "Forms.CheckBox.1" Then
MsgBox oCtl.OLEFormat.ClassType
MsgBox oCtl.OLEFormat.Name
If oCtl.OLEFormat.Object.Value = True Then
MsgBox "Checkbox " & oCtl.OLEFormat.Object.Name & _
"is checked"
Else
MsgBox "Checkbox " & oCtl.OLEFormat.Object.Name & _
"is NOT checked"
End If
End If
Next
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.