Code ohne activate und select

Sub GitternetzLinien_Punkte() ActiveSheet.ChartObjects("Diagramm 1").Activate ActiveChart.Axes(xlValue).MajorGridlines.Select With Selection.Format.Line .Weight = 0.5 .DashStyle = msoLineSysDot End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub GitternetzLinien_Punkte() With ActiveSheet.ChartObjects("Diagramm 1") .Axes(xlValue).MajorGridlines With .Format.Line .Weight = 0.5 .DashStyle = msoLineSysDot End With End With End Sub

Hallo Dieter,
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue. Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Es sollte ein aussagekräftiger Name sein.
Das ist nur meine Meinung zu dem Thema.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Das ist nur meine Meinung zu dem Thema.
Gruß Hajo

Sub GitternetzLinien_Punkte() With ActiveSheet.ChartObjects("Diagramm 1") With .Chart.Axes(xlValue).MajorGridlines With .Format.Line .Weight = 0.5 .DashStyle = msoLineSysDot End With End With End With End Sub

Sub Unit() ActiveSheet.ChartObjects("Diagramm 1").Chart.Axes(xlValue)._ MajorGridlines.Format.Line.Weight = 4 ActiveSheet.ChartObjects("Diagramm 1").Chart.Axes(xlValue). _ MajorGridlines.Format.Line.DashStyle = msoLineSysDot End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code ohne activate und select

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread