Seite 1 von 1
Diagrammtitel mit Zellbezug
Verfasst: Fr, 28.03.2014 16:21
von zero82
Hallo,
ich suche vergebens eine Möglichkeit einen Diagrammtitel eine Zelle zuzuordnen. Sobald sich der Name der Zelle ändert soll sich der Titel ebenfalls ändern. Ist dies in Cac möglich? Wenn ja wo kann man dies einstellen?
Danke schonmal.
Gruß
z
Re: Diagrammtitel mit Zellbezug
Verfasst: Fr, 28.03.2014 19:19
von lorbass
F1 → Programmhilfe ([color=#AA0000]LibreOffice 3.5.4.2[/color]) hat geschrieben:Titel
Wenn Sie Text für einen Titel, Untertitel oder eine Achse eingeben, bleibt neben dem Diagramm ausreichend Platz für die Textanzeige frei. Wenn Sie keinen Text eingeben, ist dies nicht der Fall, so dass mehr Platz für die Anzeige des Diagramms zur Verfügung steht.
Der Titeltext kann nicht mit einer Zelle verknüpft werden. Sie müssen den Text direkt eingeben.
Lies in der Programmhilfe, ob sich in deiner OpenOffice-Verskion daran was geändert hat.
Gruß
lorbass
Re: Diagrammtitel mit Zellbezug
Verfasst: Sa, 29.03.2014 08:25
von F3K Total
lorbass hat geschrieben:Lies in der Programmhilfe, ob sich in deiner OpenOffice-Verskion daran was geändert hat.
Ich konnte nichts finden.
Hier eine kurze function incl. Beispieldatei, die den Job erledigt:
Code: Alles auswählen
function set_Title(CELL)
oCharts = thiscomponent.sheets.getbyname("Tabelle1").Charts
oChartsenumeration = oCharts.createenumeration
While oChartsenumeration.hasmoreelements
ochart = oChartsenumeration.nextelement
if ochart.DisplayName = "MeinDiagrammF3K" then ochart.EmbeddedObject.Title.String = CELL
Wend
set_title = "aktuell: "&CELL
End function
Gib dem Diagramm einen Namen (rechte Maustaste, Namen ...) und setzte den Namen statt "MeinDiagrammF3K" in die Function ein. Das tabellenblatt muss natürlich auch stimmen (hier "Tabelle1")
Der Diagrammtitel muss im Beispiel in Zelle C1 eingetragen werden, ob per Formel oder von Hand. Die function steht in C2.
HTH
R
Re: Diagrammtitel mit Zellbezug
Verfasst: So, 30.03.2014 09:41
von F3K Total
Hi,
hier noch eine veränderte, verbesserte Version. Der function werden alle notwendigen Argumente (Überschrift, Tabellenblatt, Diagrammname) mitgegeben, so dass beliebig viele Diagramme, auch auf mehreren Tabellenblättern, mit Überschriften versehen werden können.
Die Diagramme müssen eindeutig benamst werden (kein Name doppelt).
Zur besseren Übersicht, gibt die Function jetzt den Diagrammnamen zurück.
Code: Alles auswählen
function set_Title(sTitle,nSpreadsheet,sDiagram)
oCharts = thiscomponent.sheets.getbyindex(nSpreadsheet-1).Charts
oChartsenumeration = oCharts.createenumeration
While oChartsenumeration.hasmoreelements
ochart = oChartsenumeration.nextelement
if ochart.DisplayName = sDiagram then ochart.EmbeddedObject.Title.String = sTitle
Wend
set_title = sDiagram
End function
Gruß R
Re: Diagrammtitel mit Zellbezug
Verfasst: Mo, 31.03.2014 09:41
von zero82
hi,
danke für die Antworten. Zu deinem letzten Beispiel. Wo kann ich den Zellbezug einstellen? Im Code finde ich leider keinen Bezug auf eine Zelle. Könntest du mir vielleicht kurz erklären, was ich machen, muss um dieses Beispiel auf meine Datei anzuwenden habe. Ich habe etwa 8 Diagramme deren Namen ich auf eine Zelle zu beziehen habe. Die Namen befinden sich in einer Spalte. Von A4:A11.
Übrigens danke für die Antworten.
Gruß
z
Re: Diagrammtitel mit Zellbezug
Verfasst: Mo, 31.03.2014 11:55
von Karolus
Hallo
In LO gibts auf einem chart-object kein
.DisplayName property mehr.
Anolog zu Riks-Code ist:
Code: Alles auswählen
function diagramtitle_libre( title, sheetnumber, sname)
with thisComponent.Sheets.getByIndex( sheetnumber-1).Drawpage
for i = 0 to .count() -1
if .getByIndex(i).Name = sname then
.getByIndex(i).Model.Title.String = title
diagramtitle_libre = title
exit function
end if
next i
end with
end function
Re: Diagrammtitel mit Zellbezug
Verfasst: Mo, 31.03.2014 12:17
von zero82
Danke für die Antworten. Ich habe mittlerweile verstanden, wie ich die Formel benutzen muss. Thanks @ all
Re: Diagrammtitel mit Zellbezug
Verfasst: Mo, 31.03.2014 19:46
von F3K Total
Hallo zusammen,
der Code von Karolus funzt auch in AOO, daher kann man die function so umbenennen:
Gruß R