vba word: Knyt kode til knap oprettet runtime

Hvis jeg har forstået dig ret skal du bare:

Dobbelt klikke på den.
Skrive noget kode.

Fx.
MsgBox("Test")

Knappen oprettes runtime, dvs. mens programmet kører, så jeg kan ikke dobbeltklikke på knappen og skrive koden. Koden skal tilknyttes knappen runtime eller være foruddefineret.

Jeg har forsøgt at skrive kode til en knap (designtime):

Cmd1_Click()
doevent
end sub

Runtime, oprettes knappen jeg navngiver Cmd1. Når jeg trykker på den skulle jeg mene, at koden blev udført. Men det gør den ikke, så på en eller anden måde mangler der en tilknytning mellem kontrollen der oprettes runtime og den kode jeg skrev designtime.

Nu har jeg aldrig oprettet en kontrol runtime (hvorfor gøre det - du han da bare lave den designtime, og skjule den indtil du skal bruge den?)

Men når du opretter den, giver du den vel et navn?
Altså noget i retning af Create CommandButton name="RunTimeKnap" - eller hvordan man nu gør det...

Så kan du i forvejen skrive en :
Sub RunTimeKnap_Click()
  MsgBox "Knappen der blev oprettet runtime blev klikket på"
End Sub

Ups - det er jo PRÆCIS det du har gjort - sorry. Men bare nysgerrig:
Hvorfor oprette i runtime?

martin_moth:
Fordi jeg har en multipage hvorpå der oprettes en ny side ved klik på en cmdx. På den nye side skal der samtidig oprettes en cmd1. Jeg kan også oprette en cmd1 på multipage.value (den aktive side) og senere flytte den til den nye side, men det er ikke lykkedes mig at gennemskue hvordan.

Jeg har ingen anelse om hvad jeg taler om (bruger ikke multipages), men måske kan den nye knaps click-hændelse ikke aktiveres, fordi knappen er placeret et andet sted end koden står?

Altså hvis det fx. var 2 forme du havde, og der på form2 var en knap, men knappens kode stod i kodevinduet til form1 - kan det vare noget sådant der er tale om?

Som sagt - jeg ved ikke hvad jeg taler om, men det KUNNE jo være, at mit svar kunne bruges til et eller andet ;o)

Nej, det ser ikke ud til at være det der spænder ben.

Hej.

Du kunne måske gøre således:


* Opret en commandbutton. Giv den indexværdien "0"
* Skriv denne kode i den:

select case index

case 0 ' knap 0
form1.show

case 1 ' knap 1
form2.show

end select


Måske kunne det bruges?

Mvh.
Rasmus

Jeg er ikke kommet løsningen tættere, jeg lukker derfor spørgsmålet. Men tak for indsatsen :-)

nicolaus

Lukker