Hallo zusammen, habe folgendes Problem: Ich möchte die Achsenbeschriftung einer Kennlinie wie auf den Bilder zu sehen um -90° drehen und das mittels VBA Makro. Mein Makro kann bisher die Anzahl der Messwerte erkenne und die Kennlinie daraus erstellen und formieren. Leider finde ich keine Info, wie ich die Achsenbeschriftung noch drehen könnte. Gruß und Dank Falls es wichtig ist, hier das bestehende VBA Makro Sub Makro1() ' ' Makro1 Makro ' ' Range("A2").Select Dim wert As Integer wert = 1 Do Until ActiveCell.Value = "" ActiveCell.Offset(1, 0).Select wert = wert + 1 Loop Dim Tabelle As String Range("A1").Select Tabelle = ActiveSheet.Name ActiveSheet.Shapes.AddChart.Select ActiveChart.SetSourceData Source:=Range(Tabelle & "!$A$1:$B$" & wert) ActiveChart.ChartType = xlLine ActiveChart.SeriesCollection(1).Select Selection.Delete With ActiveChart.Parent .Left = 150 .Top = 20 .Width = 760 .Height = 370 End With ActiveChart.Axes(xlValue).MinimumScale = 0.8 ActiveChart.Axes(xlValue).MaximumScale = 1.6 ActiveChart.Axes(xlCategory).TickLabelSpacing = 6 ActiveChart.Axes(xlCategory).TickMarkSpacing = 12 ActiveChart.SeriesCollection(1).XValues = "=" & Tabelle & "!$A$2:$A$" & wert End Sub
Beschriftung von der Seite nach oben tauschen ? Dann schau mal unter ? ===> transponieren. (Unter VBA hab ich es leider noch nicht versucht.)
Das sollte helfen. Funktioniert jedenfalls bei mir. Sub Makro5() ActiveChart.Axes(xlCategory).AxisTitle.Orientation = xlUpward End Sub
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.