IP-Adresse in Powerpoint anzeigen lassen
Hallo zusammen,
gibt es eine Möglichkeit, die IP-Adresse (und eventuell andere Netzwerkdaten) in einer Powerpoint-Präsentation anzeigen zu lassen?
Danke
mabue88
gibt es eine Möglichkeit, die IP-Adresse (und eventuell andere Netzwerkdaten) in einer Powerpoint-Präsentation anzeigen zu lassen?
Danke
mabue88
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 72001
Url: https://administrator.de/forum/ip-adresse-in-powerpoint-anzeigen-lassen-72001.html
Ausgedruckt am: 27.04.2025 um 14:04 Uhr
1 Kommentar
Hallo mabue88!
Du könntest zu diesem Zweck
Grüße
bastla
Du könntest zu diesem Zweck
- die Symbolleiste "Steuerelement-Toolbox" (über "Ansicht / Symbolleisten") anzeigen lassen und
- dort das Symbol mit dem großen "A" anklicken, um mit der Maus ein "Bezeichnungsfeld" aufziehen zu können. Diese Feld erhält die Beschriftung "Label1".
- Per Doppelklick auf das Feld wird der VBA-Editor geöffnet und Du kannst zwischen "Private Sub Label1_Click()" und "End Sub" folgenden Code einfügen:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True", , 48)
For Each objItem In colItems
If Not IsNull(objItem.IPAddress) Then
If IP = "" Then IP = objItem.IPAddress(0)
End If
Next
Label1.Caption = IP- Nachdem Du den VBA-Editor geschlossen hast, kannst Du über das Kontextmenü des Bezeichnungsfeldes die "Eigenschaften" anzeigen lassen, wo Du verschiedene Formatierungsmöglichkeiten (vor allem "Font, "ForeColor" und "BackColor") vorfindest. Hier kannst Du auch in "Caption" den Text "Label1" zB durch "IP-Adresse" ersetzen.
- Wenn Du nun die Präsentation startest, kannst Du durch einen Klick auf das Bezeichnungsfeld den Text "IP-Adresse" durch die aktuelle IP-Adresse der ersten Netzwerkkarte ersetzen lassen.
Grüße
bastla
