Steuerelement soll Form einfügen "Skizze" starten

[Frnak_Castle]

Hallo zusammen,

ich habe folgendes Problem für welches ich leider ein wenig zu unfähig bin.
Folgende Problematik, ich möchte einen Button als Steuerelement einfügen der folgendes durchführt.
Sobald ich drauf klicke, soll "Einfügen", "Form, "Skizze" aktiviert werden.
Die Kür wäre zudem, wenn sich die Skizze auf eine Zelle beziehen würde.


Ich hoffe, jemand von Euch kann mir dabei helfen, habe leider kaum bis gar keine Erfahrung mit Makros.

Vielen Dank im voraus und viele Grüße,

Frank

[Zwergel]

Hi was bedeutet für dich aktivieren und was sind diese 3 zu aktivierenden Dinge?

[Frnak_Castle]

Hi,

also ich habe ein Excelsheet entworfen, was zur Qualitätskontrolle in der Gebäudereinigung dient.
Das wird mit dem Kunden zusammen druchgeführt, auf einem Windows Tablet.

Am Ende möchte der Kunde und unser Kontrolleur dieses Sheet unterschreiben.
Klar, eine Unterschrift auf dem Tablet und in Excel ist nicht Dokumentenecht, aber für diesen Zweck ausreichend.

Diese Unterschrift möchte ich mit der Form Skizze ermöglichen.
Also über die Reiter, "Einfügen", "Formen", "Skizze".
Dabei ist aktivieren viellleicht das falsche Wort, der Cursor sollte dann zu der einfügbaren Form "Skizze" werden.

Bevor man deshalb auf den Reitern rumklicken muss, wäre ein Button schöner, der die "Skizze" aktiviert und dann am besten noch euf eine Zelle springt.

Passt das als Erklärung? Ist immer ein wenig schwierig nur in Text.

Viele Grüße,

Frank

[Zwergel]

Hi welches Excel läuft denn auf dem Tablet? Kannst du da Makros ausführen?

[Frnak_Castle]

Hi,

Windows 8 und Excel 2010. Makros sind lauffähig.

Viele Grüße,

Frank

[schauan]

Hallöchen,

mal noch eine Zwischenbemerkung. Signotec oder andere solche Geräte kennst Du? Falls nicht, damit kann man die Tabellen signieren und als sichere pdf speichern.

[Frnak_Castle]

Hi,

ja kenne ich. Ist aber ein zusätzliches Gerät  und dadurch zu aufwändig. Bräuchte davon gleich 10 Stück  und es muss ja nicht dokumentenecht sein. Deshalb bin ich auf der Suche nach einer Excel basierten Lösung.

Viele Grüße

Frank

[schauan]

Hallo Frank,

dann eventuell so, läuft auch unter 2016:

Sub FreiHand()
Application.CommandBars("Drawing").Controls(3).Controls(1).Controls(6).Execute
End Sub

[Frnak_Castle]

Hi,

funktioniert super.
Vielen Dank für die Hilfe.

Jetzt habe ich nur noch folgendes und wahrscheinlich sehr kleines Problem.

Das Makro funktioniert einwandfrei, wenn ich über "Entwicklertools", "Makros" und "Freihand ()" ausführen gehe.

Wenn ich es jedoch mit einer Schaltfläche verbinden möchte, also ein Forumularsteuerelement, einen Button, so kann ich diesen anklicken und es springt mir in die richtige Zelle, aber der Skizzenstift wird nicht aktiviert.

Was mache ich falsch?

Hier mal der dazugehörige Code:

Sub FreiHand()
ActiveSheet.Range("i6").Select
Application.CommandBars("drawing").Controls(3).Controls(1).Controls(6).Execute
End Sub

Vielen Dank nochmal für Eure Geduld und viele Grüße,

Frank

[schauan]

Hallo Frank,

nimm einen Button aus den AciveX-Steuerelementen und bringe den Code dort unter, z.B.

Code:

Private Sub CommandButton1_Click()
ActiveSheet.Range("i6").Select
Application.CommandBars("drawing").Controls(3).Controls(1).Controls(6).Execute
End Sub