Pop up content
Hvordan tager man fat i alle objekter på et billede i iFIX ?
Private Sub CommandButton1_Click() Dim oPic As Object Dim oShape As Object
Set oPic = Application.ActiveDocument.Page
For Each oShape In oPic.ContainedObjects
If Left(oShape.Name, 5) = "Group" Then '
' Her indsættes koden, der skal udføres på de valgte objekter. F.eks. synlighed
oShape.Visible = False
End If
Next oShape
End Sub