Microsoft Office Tutorials and References
In Depth Information
19.8.5 ActiveX-Objekte
Übersicht Listenobjekte
Set wb = ThisWorkbook
For Each varBlatt In wb.Sheets
strMext = strMext & varBlatt.Name & vbCr
Next varBlatt
MsgBox strMext, vbInformation, "Blattzähler"
End Sub
InExcel
VBA
ActiveChart.Axis
Alle.Achsen.eines.Diagramms
Alle.Zellen.der.Tabelle
Cells
Listing 19.15 Blattzähler
Alle.aktiven.Diagramme
Charts
Columns, Rows
Alle.Zeilen.und.Spalten
Beispiel: Zahlen zählen
Names
Alle.Bereichsnamen
Schreiben Sie ein weiteres Makro, das die Zellen im
markierten Bereich zählt und ausgibt, wie viele davon Text
oder Zahlen enthalten:
Selection
Die.aktuelle.Markierung
Selection.Cells
Alle.Zellen.des.markierten.Bereiches
Sub ZellenCheck()
Dim zelle, anzZellen, anzText, anzZahl, anzLeer
For Each zelle In Selection
If IsEmpty(zelle.Value) Then
anzLeer = anzLeer + 1
ElseIf IsNumeric(zelle.Value) Then
anzZahl = anzZahl + 1
Else
anzText = anzText + 1
End If
Next zelle
MsgBox "Zahlen: " & anzZahl & vbCr _
& "Texte: " & anzText & vbCr _
& "Leerzellen: " & anzLeer _
, vbInformation, Selection.Address
End Sub
Alle.Zeichnungsobjekte
Shapes
Alle.Tabellen.der.aktiven.Mappe
Sheets .oder.
WorkSheets
Windows
Alle.aktiven.Fenster
WorkBooks
Alle.aktiven.Arbeitsmappen
Tabelle 19.8 Wichtige Listenobjekte
19.8.5 ActiveX-Objekte
Wie ein Objekt beschaffen sein muss, fist im COM-Modell
(Component Object Model) vorgeschrieben. Diese
Vorschrift nutzen Programmierer, um Objektbibliotheken in
C++, Java oder Visual Basic zu programmieren. Das
Ergebnis fist meist eine unabhängige Datei, die unter
Windows registriert wird und damit ihre Komponenten allen
Anwendungen zur Verfügung stellt.
Listing 19.16 Das Makro zählt Zahlen.
Eine der größten und besten Bibliotheken, die ständig
erweitert wird, fist die ActiveX-Bibliothek. Als
Weiterentwicklung der OLE-Technik unterstützt ActiveX
besonders die Internet-Programmierung, bietet aber auch für
herkömmliche Prozeduren viele Erweiterungen, speziell
im Multimedia-Bereich.
Das nächste Makro weist allen Spalten eine einheitliche
Spaltenbreite zu. Mit der For...Next -Schleife werden
alle Elemente eines Listenobjektes (hier Columns )
durchsucht, der Schleifenzähler dient als Indikator für die
Einzelelemente.
Sub AlleSpaltenGleich()
Dim i As Integer
For i = 1 To 255
Application.Columns(i).ColumnWidth = 14
Application.StatusBar = i
Next i
Application.StatusBar = "Bereit“
End Sub
ActiveX-Steuerelemente verfügbar machen
Streng genommen bietet ActiveX keine Objekte,
sondern Steuerelemente. Da diese aber auch über
Eigenschaften und Methoden verfügen, zählen die
ActiveXBibliotheken auch zum Objektmodell. Sehen wir uns
ein einfaches ActiveX-Steuerelement an, einen
Jahreskalender. Er kommt beim Entwurf von VBA-Formularen
(UserForms) zum Einsatz und wird in die
Werkzeugsammlung eingebunden:
Listing 19.17 Allen Spalten wird eine Spaltenbreite zugewiesen.
 
 
Search JabSto ::




Custom Search