meine Frage ist ganz kurz. Sie lautet:
Wie kann ich die Breite einer Linie ändern ohne diese aktivieren zu müssen.
Zur Erläuterung was ich mache etwas Code:
In Datei 1 rufe ich Modul in Datei 2 auf.
Wichtig: Mein Ziel ist, dass nicht in Datei 2 gewechselt wird.
x = Application.Run("Datei_2.xlsm!Komplett", f_name)
In Datei_2.xlsm!Komplett geschieht folgendes:
Sub Komplett(FileName)
Set Zeichnung = Aplication.Workbooks(FileName).Sheets("Grundri").ChartObjects("Diagramm 1")
Call Linie("Koord_Sys", 0.75, Left_Abst, koord_y, Zeich_breit, koord_y)
Nun wird die Linie gezeichnet modifiziert.
Sub Linie(Li_name, Li_Breit, li_x1, li_y1, Li_x2, Li_y2)
Zeichnung.Chart.Shapes.AddConnector(msoConnectorStraight, li_x1, li_y1, Li_x2, Li_y2).Name = _
_
_
Li_name
Zeichnung.Activate
Zeichnung.Chart.Shapes(Li_name).Select
With Selection.ShapeRange.Line
.Weight = Li_Breit
End With
End Sub
End Sub
Das funktioniert problemlos.
Mit 'Zeichnung.Activate' wird in Datei 2 gewechselt und das möchte ich nicht!
die Zeile ' With Selection.ShapeRange.Line'
wollte ich ändern in
' With Zeichnung.Chart.Shapes(Li_name).Line' das funktioniert jedoch nicht.
Ich hoffe ich habe mein Problem verständlich dargestellt.
Danke im Voraus
Ulf