Aktivieren von Word-Makros durch Klick in eine Tabellenzelle

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Aktivieren von Word-Makros durch Klick in eine Tabellenzelle

Re: Aktivieren von Word-Makros durch Klick in eine Tabellenz

Beitrag von VEberleh » 29. Jul 2021, 16:15

ja cool. Das funktioniert. :D :D :D
Danke schön

Re: Aktivieren von Word-Makros durch Klick in eine Tabellenz

Beitrag von theoS » 28. Jul 2021, 20:53

AutoExec ist ein wenig aus der Mode.
Füge in das Modul ThisDocument den folgenden Code ein:
Code: Alles auswählen
Dim X As New Klasse1
'das startet den Code beim Öffnen
Private Sub Document_Open()
Set X.oApp = Word.Application
End Sub

Aktivieren von Word-Makros durch Klick in eine Tabellenzelle

Beitrag von VEberleh » 28. Jul 2021, 13:42

Hallo,
im alten Forum hat CHF schon die Frage beantwortet.
---------------------------------------------------------------------------------------------------------------
"Aktivieren von Word-Makros durch Klick in eine Tabellenzelle"

Du brauchst ein Klassenmodul "Klasse1" mit folgendem Code


Code:
Public WithEvents oApp As Application
Private Sub oApp_WindowSelectionChange(ByVal Sel As Selection)
If Sel.Information(wdWithInTable) = True Then
MsgBox "In Tabelle geklickt"
End If

End Sub


In einem Modul initialisierst du dann die Klasse z.B. mittels
Code:
Dim X As New Klasse1

Sub AutoExec()
Set X.oApp = Word.Application
End Sub


wenn du dann in eine Tabellenzelle klickst! wird die Msgbox aufgerufen.
-----------------------------------------------------------------------------------------------
Allerdings habe ich das Problem, dass
1. bei mir das Macro nicht automatisch startet. Ich muss es manuell starten das es abspielt und
2. würde das auch funktionieren das das Macro startet, nicht wenn ich in die Zelle klicke, sondern ein Foto via Drag&Drop in die Zelle ziehe ?
Hintergrund ist, dass ich eine Fotomappe erstelle. In dieser soll folgende Funktion ausgeführt werden.
>> Wenn ich ein Foto in die Zelle ziehe soll automatisch eine weitere Zeile unten angefügt werden.
Momentan funktioniert das wenn ich das Macro manuell gestartet habe und in die Zelle klicke, eine Zeile unten angefügt wird.
Ich bin kein VBA-Profi. Daher sorry wenn ich es nicht gleich richtig verstehe. :oops: :!: :?:

Nach oben