Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.08.2017 16:27:12 |
Manuel-KFBM |
|
|
Datenbeschrift im Diagramm wie die dazugehörige Zelle |
16.08.2017 20:21:49 |
Ben |
|
|
|
17.08.2017 08:44:26 |
Gast1624 |
|
|
|
17.08.2017 21:18:50 |
Ben |
|
|
Von:
Ben |
Datum:
16.08.2017 20:21:49 |
Views:
604 |
Rating:
|
Antwort:
|
Thema:
Datenbeschrift im Diagramm wie die dazugehörige Zelle |
Hallo,
auf die Schnelle fällt mir nur diese Lösung ein:
Sub FormatGanttDiagramm()
Dim wsh As Worksheet
Dim sh As Shape
Dim ch As Chart
Dim lg As LegendEntry
Dim rngData As Range
Set wsh = ActiveSheet
Set sh = wsh.Shapes(1)
Set ch = sh.Chart
Set rngData = wsh.Range("A9:A48")
For Each lg In ch.Legend.LegendEntries
With rngData.Columns(1).Cells(lg.Index, 1)
lg.Font.Bold = .Font.Bold
lg.Font.Italic = .Font.Italic
lg.Font.Color = .Font.Color
lg.Font.Background = .Font.Background
End With
Next
End Sub
Voraussetzung ist, dass das Diagramm als shape-Objekt in der gleichen Tabelle befindet, in der auch die Daten gespeichert sind.
LG, Ben
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.08.2017 16:27:12 |
Manuel-KFBM |
|
|
Datenbeschrift im Diagramm wie die dazugehörige Zelle |
16.08.2017 20:21:49 |
Ben |
|
|
|
17.08.2017 08:44:26 |
Gast1624 |
|
|
|
17.08.2017 21:18:50 |
Ben |
|
|