Diagonale mit VBA einzeichnen

[Wolf59]

Hallo

Habe ein vorhandenes Formular

Durch Eingabe von Breite und Länge in der Abfrage wird durch den Button "Start" in der MP_Skizze ein mit Fetten Linien ein Rahmen eingezeichnet.
Dieser Rahmen ändert sich jeweils wenn man andere Breiten bzw. Längen eingibt.

Meine Frage:
Kann man Automatisch Diagonale (2x d.h. über Kreuz) in den vorhandenen Rahmen einzeichnen lassen
z.B. Linie schwarz in der Stärke 3

[attachment=54760]

[snb]

Warnung: diese Datei enthält ein ontime Makro. !!!

Verzichte immer auf verbundene Zellen.

Antwort:

Code:

Sub M_snb()
    Tabelle5.Shapes.AddConnector(1, Cells(1, 21).Left, Cells(8, 1).Top, Cells(1, 11).Left, Cells(16, 1).Top).Line.Weight = 2
End Sub

[Wolf59]

[attachment=54770]
Danke für die Antwort

Jedoch war dies nicht meine Frage

Wenn ich im Blatt "Abfrage" die Breite und Länge ändere und im Blatt "MP_Skizze" den Button "Start" aktiviere,
dann zeichnet er mir den Rahmen

Dann sollen zwei Diagonale eingezeichnet werden.

Jedesmal wenn ich die Breite und Länge ändere soll auch auf diese Abmessungen die zwei Diagonalen eingezeichnet werden

Das OnTime Makro hab ich rausgenommen
Hat mit der Zeichnung nichts zu tun

[snb]

Verzichte auf 'Select' und 'Activate' in VBA.

Ich habe die Methode gezeigt anpassen darfst du selber.

[oee]

Sorry, aber deine Datei ist so chaotisch, dass man eine Anleitung braucht.
Was genau muss man denn wann machen? Welches Button wann drücken?

[schauan]

Hallöchen,

Du brauchst doch nur in Deinem Code an die Stelle gehen, wo Du das Rechteck zeichnest.

'es wird der Zellenbereich ausgewählt, in dem die Linien fett sein sollen
Range(Cells(8, 11), Cells(8 + breite - 1, laenge + 10)).Select

Da hast Du doch schon die Angaben, die Du brauchst, um die Eckpunkte zu berechnen ...

[oee]

Er muss nur noch diesen Bereich "mergen", dann kann er auch die Diagonalen über den ganzen Bereich ziehen.

[Wolf59]

Danke an Alle die auf meine Anfrage geantwortet haben

[derHoepp]

Moin,

es ist nicht sehr solidarisch, Beispieldateien wieder zu löschen. So wird es unmöglich, Hilfe nachzuvollziehen. Hilfe im Forum sollte eigentlich keine Einbahnstraße sein.

Viele Grüße 
derHoepp

[snb]

@dH

Da hast du völlig recht