Aktivieren von Word-Makros durch Klick in eine Tabellenzelle

Moderator: ModerationP

Aktivieren von Word-Makros durch Klick in eine Tabellenzelle

Beitragvon 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: :!: :?:
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
VEberleh
Neuling
 
Beiträge: 2
Registriert: 28. Jul 2021, 13:10

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

Beitragvon 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
theo s.
Benutzeravatar
theoS
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5717
Registriert: 19. Apr 2008, 00:14

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

Beitragvon VEberleh » 29. Jul 2021, 16:15

ja cool. Das funktioniert. :D :D :D
Danke schön
VEberleh
Neuling
 
Beiträge: 2
Registriert: 28. Jul 2021, 13:10


Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast