Name und Ort vom Commandbutton

Name und Ort vom Commandbutton

Ich benötige ein VBA-Makro mit dem ich den Namen des Commandbutton der gerade gedrückt wurde auslesen kann. Ich probierte es indem ich mit einer Schleife alle Elemente auf einem Picture auf ihr Fucus prüfte. Leider findet er kein Element.
Bei der Frage wo sich das Element befindet hatte ich gehofft, das ich einfach alle Dyn.Pictures auf Online zu prüfen. Dabei mußte ich feststellen das immer mehr als nur eine Seite Online ist.

Mein Programmcode :

VBA Code:

Bildnummer=MeinProjekt.dynPictures.count -1
while Bildnummer>=0
if MeinProjekt.dynPictures.item(Bildnummer).online then
set ActPict = MeinProjekt.dynPictures.item(Bildnummer)
msgbox ActPict.Name

ElementNummer=ActPict.Elements.count -1
while ElementNummer >= 0
if ActPict.Elements.item(ElementNummer).Focus then
msgbox ActPict.Elements.item(ElementNummer).Name
End If
Elementnummer= Elementnummer - 1
wend
End If
BildNummer =BildNummer - 1

wend


This is a migrated post! Originally posted on 01.03.2011 by user freak80. Please be aware that information can be outdated.