Befehlsschaltfläche programmieren

Computer: Software & Programmierung Office Software
1

Hallo,
möchte mit einer Befehlsschaltfläche ein Symbol von Wingdings in ein Word Dokument einfügen, welchen Code muss ich dazu eingeben.
Hab schon mal probiert, aber da kommt jedesmal ein Laufzeitfehler (4605): … Objekt verweist nicht auf einen einfachen Bereich oder Makierung. Was mach ich da falsch?

MFG
Chis

2

möchte mit einer Befehlsschaltfläche ein Symbol von Wingdings
in ein Word Dokument einfügen, welchen Code muss ich dazu
eingeben.
Hab schon mal probiert, aber da kommt jedesmal ein
Laufzeitfehler (4605): … Objekt verweist nicht auf einen
einfachen Bereich oder Makierung. Was mach ich da falsch?

Hi Chris,
in deinem Code ist in Zeile 3 der zweite Parameter falsch gesetzt.
Gruß
Reinhard

3

Hi Chris,
in deinem Code ist in Zeile 3 der zweite Parameter falsch
gesetzt.
Gruß
Reinhard

Hallo Reinhard danke für die schnelle Antwort,
bin leider nicht so firm beim verfassen von Prozeduren, habe hier mal den bisherigen Code eingefügt, vielleicht kannst du mir ja sagen wie er richtig lauten muss, danke.

Selection.InsertSymbol Font:=„Wingdings“, CharacterNumber:=-3876, Unicode _:=True

Gruß
Chris

4

Hi Chris,
ich wollte damit sagen poste den kompletten Code.
Gruß
Reinhard

5

Hi Chris,
ich wollte damit sagen poste den kompletten Code.
Gruß
Reinhard

Hi Reinhard,
dachte schon du könntest hellsehen :smile:
Also hier der komplette Code:

Private Sub CommandButton1_Click()
Selection.InsertSymbol Font:=„Wingdings“, CharacterNumber:=-3876, Unicode _
:=True
End Sub

Wenn ich das Makro über den Rekorder aufzeichne klappt es einwandfrei (dann muss ich aber jedesmal den lästigen Umweg über Extras-Marko usw gehen), wie sag ich es dem CommandButton1 das er das Wingdings Symbol in den Text einfügt.
Vielleicht weißt du ja einen Weg?

Gruß
Chris

6

Wenn ich das Makro über den Rekorder aufzeichne klappt es
einwandfrei (dann muss ich aber jedesmal den lästigen Umweg
über Extras-Marko usw gehen), wie sag ich es dem
CommandButton1 das er das Wingdings Symbol in den Text
einfügt.
Vielleicht weißt du ja einen Weg?

Hi Chris,
es liegt an der „Selection“, irgendwie ist nichts selektiert wenn du es per Button startest. An „Takefocusonclick“ liegt es nicht.

probiers mal so:

Private Sub CommandButton1_Click()
Range(0, 0).InsertSymbol Font:=„Wingdings“, CharacterNumber:=-3876, Unicode:=True
End Sub

Gruß
Reinhard

7

Hi Chris,
es liegt an der „Selection“, irgendwie ist nichts selektiert
wenn du es per Button startest. An „Takefocusonclick“ liegt es
nicht.

probiers mal so:

Private Sub CommandButton1_Click()
Range(0, 0).InsertSymbol Font:=„Wingdings“,
CharacterNumber:=-3876, Unicode:=True
End Sub

Gruß
Reinhard

Hi Reinhard,
ich zücke meinen Hut vor dir, bin sprachlos!! Es funktioniert einwandfrei genau so wollte ich es haben.
Vielen Dank
Gruß Chris