Hilfe bei der Übersetzung von VB.NET zu VBA für's Ändern der Diagramm-Eigenschaften

  • Excel

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von INOPIAE.

    Hilfe bei der Übersetzung von VB.NET zu VBA für's Ändern der Diagramm-Eigenschaften

    Dies ist mein Original-VB.NET-Code. Diesen habe ich versucht, zu VBA zu übersetzen.

    VB.NET-Quellcode

    1. Private Sub edit_charts()
    2. For Each ChartObj As ChartObject In CType(ExcelWorkSheet.ChartObjects, ChartObjects)
    3. Dim Chart_i As Chart = ChartObj.Chart
    5. If Chart_i.HasLegend Then
    6. Chart_i.Legend.Font.Size = 11
    7. Chart_i.Legend.Font.Bold = True
    8. End If
    10. Chart_i.ChartArea.Border.Color = 0 ' 0 = schwarz
    11. Chart_i.ChartArea.Border.Weight = XlBorderWeight.xlThin
    13. Dim Achsen As Axes = CType(Chart_i.Axes(), Axes)
    14. For Each Achse As Axis In Achsen
    15. Achse.TickLabels.Font.Size = 11
    16. Achse.TickLabels.Font.Bold = True
    17. If Achse.HasTitle Then
    18. CType(Achse.AxisTitle, AxisTitle).Font.Size = 11
    19. CType(Achse.AxisTitle, AxisTitle).Font.Bold = True
    20. End If
    21. Next
    22. Next
    23. End Sub


    Quellcode

    1. Sub edit_charts()
    2. For Each ChartObj In ActiveSheet.ChartObjects
    3. Chart_i = ChartObj.Chart
    5. If Chart_i.HasLegend Then
    6. Chart_i.Legend.Font.Size = 11
    7. Chart_i.Legend.Font.Bold = True
    8. End If
    10. Chart.ChartArea.Border.Color = 0 ' 0 = schwarz
    11. Chart.ChartArea.Border.Weight = XlBorderWeight.xlThin
    13. Achsen = Chart.Axes()
    14. For Each Achse In Achsen
    15. Achse.TickLabels.Font.Size = 11
    16. Achse.TickLabels.Font.Bold = True
    17. If Achse.HasTitle Then
    18. Achse.AxisTitle.Font.Size = 11
    19. Achse.AxisTitle.Font.Bold = True
    20. End If
    21. Next
    22. Next
    23. End Sub


    In Zeile 3 (    Chart_i = ChartObj.Chart) kommt der Fehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht.

    Auch, wenn ich direkt alle Charts erfasse, irgendwo im oberen Bereich bleibt er immer stehen.

Facebook