Diagrammtitel mit Zellbezug

[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

[lorbass]

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

[F3K Total]

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

[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

[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

[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

[zero82]

Danke für die Antworten. Ich habe mittlerweile verstanden, wie ich die Formel benutzen muss. Thanks @ all

[F3K Total]

Hallo zusammen,
der Code von Karolus funzt auch in AOO, daher kann man die function so umbenennen:

Code: Alles auswählen

function diagramtitle( title, sheetnumber, sname)

Gruß R