Excel 97: Diagramm-Titel
Robert Gelbmann
Hallo Holger!
Der ("echte") Diagrammtitel gestattet leider keine Verknüpfung mit einem
Zellenwert.
;-(
Aber du kannst diesen ("echten") Diagrammtitel beruhigt löschen und dann
einen eigenen ("falschen") erstellen:
- Dazu markierst du das Diagramm,
- klickst in die Bearbeitungsleiste und gibst ein "=" (ohne
Anführungszeichen) ein, womit der Verweis auf eine Zelle eingeleitet ist.
- Suche dir danach (z. B. mit der Maus) die gewünschte Zelle aus und
- schließe die Eingabe in der Bearbeitungsleiste danach mit der Eingabetaste
ab.
Excel hat dir dann - idR. in der Diagrammmitte - ein Textfeld mit dem
gewünschten Inhalt auf das Diagramm gelegt. Dieses kannst du beliebig
positionieren, vergrößern und vor allem auch (bezüglich der Schriftgröße
etc.) formatieren. Dazu klickst du dieses Feld am besten genau am Rand an,
wenn der Mauszeiger einen Vierfach-Pfeil anzeigt.
--
In der Hoffnung geholfen zu haben, verbleibe ich mit einem leisen
Servus aus Wien,
-Robert Gelbmann-
P. S.: Ich bitte um Verständnis, daß ich Anfragen ausschließlich in der NG
beantworten kann!
---
MS MVPCE für Excel
EML: <rgel...@mvps.org>
WWW: http://www.roehrenbacher.at/
---"Nissen" <nis...@fh-aachen.de> schrieb ...
> Hallo liebe Excel-Gemeinde,
>
> eine Tabellenkalkulation (mit Diagramm) wird mit verschiedenen
> Datensätzen mehrfach benutzt. Dazu wird der aktuelle Datensatz
> einschließlich seines Namens auf die Eingangstabelle kopiert. Doch wie
> bekommt man den Namen des Datensatzes, der als String im Feld a1
> abgelegt ist, automatisch in den Diagrammtitel?
Frank Arendt-Theilen
Hallo Holger,
1) es ist noch kein Diagrammtitel vorhanden, dann
- Diagramm markieren
- Diagramm/Diagramm-Optionen/RegBl. 'Titel' ein beliebiges Zeichen für
den Diagrammtitel eingeben, OK
- Pseudo-Diagrammtitel markieren, in die Bearbeitungszeile klicken,
Gleichheitszeichen eintragen und Zelle, die den Diagrammtitel
enthält, markieren. OK
2) es ist ein Diagrammtitel vorhanden, dann den letzten Punkt aus 1).
MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de
Am Tue, 17 Oct 2000 11:01:11 +0200, schrieb Nissen
<nis...@fh-aachen.de> in microsoft.public.de.excel zu "Excel 97:
Diagramm-Titel":
>Hallo liebe Excel-Gemeinde,
>
>eine Tabellenkalkulation (mit Diagramm) wird mit verschiedenen
>Datensätzen mehrfach benutzt. Dazu wird der aktuelle Datensatz
>einschließlich seines Namens auf die Eingangstabelle kopiert. Doch wie
>bekommt man den Namen des Datensatzes, der als String im Feld a1
>abgelegt ist, automatisch in den Diagrammtitel?
>
>Danke im voraus
>Holger Nissen
Joachim Jörgens
es geht sehr wohl, dass man den Diagrammtitel in Abhängigkeit eines
Zellenwertes erzeugen kann.
Ich hatte mir eine Arbeitsmappe angelegt, bei der ich die
Einkommensteuertarife seit 1958 für die
Grund- oder Splittingtabelle berechnen kann. In einem separaten
Diagrammblatt werden die Kurven der
Durchschnittsbelastung und Grenzsteuerbelastung gezeichnet und der
Diagrammtitel entsprechend
der Tarifjahre angepaßt. Demzufolge brauche ich auch nur ein Diagrammblatt,
mit der Folge dass
die Excel-Datei entsprechend weniger KB benötigt.
Nachstehend der Auszug einer Prozedur die bei mir reibungslos funktioniert:
Option Explicit
Private titel$
Sub ChartTitle_Change()
Application.ScreenUpdating = False
titel = "Durchschnitts- und Grenzbelastung"
If Range("VJ").Value <> 0 Then titel = titel & " " &
Range("selVJ").Value
Charts("Diagramm1").select
ActiveSheet.Unprotect ("Passwort")
ActiveChart.ChartArea.Select
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = titel
End With
ActiveChart.ChartTitle.Select
Selection.AutoScaleFont = False
'Die Formatierung des Diagrammtitels ist erforderlich, weil Excel sonst
'die dumme Angewohnheit hat, bei Änderung des Titels diesen automatisch
'zu formatieren.
With Selection.Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = 11
.Background = xlAutomatic
End With
ActiveChart.ChartArea.Select
ActiveChart.Deselect
ActiveSheet.Protect password:="Passwort", _
DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("ESt-Tarife").Select
End Sub
"Nissen" <nis...@fh-aachen.de> schrieb im Newsbeitrag
news:39EC1556...@fh-aachen.de...
Nissen
Nissen
Viele Grüße
Holger Nissen