Office: (Office 2010) VBA Linie zeichnen

RushCabal · 16. September 2014

Hallo,

ich möchte durch eine bestimmte Zelle einmal mittig horizontal & einkal vertial einen Strich ziehen.

Bisher habe ich im Netz folgendes gefunden und für mich angepasst:

Code:

ze = ActiveCell.Text

aa = range(ze).Width
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, range(ze).Left, range(ze).Top, range(ze).Left + aa, range(ze).top).Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mit with/2 erhalte ich ja die Mitte der Zelle.

Jedoch scheitere ich daran die untere Ecken (und dadurch die Mitte) ansprechen zu können.

ist sowas möglich?
wenn ja wie lautet der befehl statt ".Top"

:)

Beverly · 17. September 2014

Hi,

weshalb willst du eine Linie ziehen - geht doch auch mit Rahmen.

RushCabal · 17. September 2014

Ich möchte ja mittig durch Zellen Striche ziehen um per Makro mir Routen anzeigen zu lassen.

Ganz Wichtig wäre dabei die untere Rechte Ecke ansprechen zu können

Beverly · 17. September 2014

Hi,

die untere rechte Ecke kann man so ansprechen:

Code:

Range(ze).Cells(Range(ze).Cells.Count).Address
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

rushifell · 17. September 2014

und durch eine zelle kann man senkrecht und waagerecht durchkreuzen mit (wobei "ze" die variable für die range-adresse ist):

Code:

ActiveSheet.Shapes.AddConnector(msoConnectorStraight, _
Range(ze).Left + Range(ze).Width / 2, _
Range(ze).Top, _
0, _
Range(ze).Height).Select

ActiveSheet.Shapes.AddConnector(msoConnectorStraight, _
Range(ze).Left, _
Range(ze).Top + Range(ze).Height / 2, _
Range(ze).Width, _
0).Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

schrägstrich mit rechter unterer ecke der adresse:

Code:

ActiveSheet.Shapes.AddConnector(msoConnectorStraight, _
Range(ze).Left, _
Range(ze).Top, _
Range(ze).Width, _
Range(ze).Height).Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

RushCabal · 17. September 2014

addconnector ist ja wie folgt aufgebaut:
X-Anfang, Y-Anfang, X-Ende, Y-Ende

Jetzt bräuchte ich den Befehl um von oben links nach unten recht von ein und der selben Zelle einen Strich zu ziehen

Beverly · 17. September 2014

Code:

Dim shaShape As Shape
Dim rngBereich As Range
Set rngBereich = Range(ActiveCell.Value)
Set shaShape = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, _
rngBereich.Cells(1).Left, rngBereich.Cells(1).Top, _
rngBereich.Cells(1).Left + rngBereich.Width, _
rngBereich.Cells(1).Top + rngBereich.Height)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

RushCabal · 18. September 2014

ei sau gut *Smilie
tip top
genau das habe ich gebraucht *Smilie
danke

Luschi · 18. September 2014

Hallo

so gehts auch: Code:

Sub zeichneLiniel()
Dim Linie As Shape
Dim links As Double, oben As Double
Dim rechts As Double, unten As Double

links = [b2].Left: oben = [b2].Top
rechts = [e10].Left: unten = [e10].Top

Set Linie = ActiveSheet.Shapes.AddLine(links, oben, rechts, unten)
Linie.Name = "Schönste Linie der Welt"
Set Linie = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

Office: (Office 2010) VBA Linie zeichnen

VBA Linie zeichnen

VBA Linie zeichnen

VBA Linie zeichnen

VBA Linie zeichnen

VBA Linie zeichnen - Similar Threads - VBA Linie zeichnen

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

Linien Zeichnen und platzieren via VBA

Bericht Linie mit VBA im Vordergrund erstellen

Shape (Linie) per VBA in Polar-Koordinaten positionieren