[Gelöst] Button-Beschriftung - elegantere Lösung?

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: [Gelöst] Button-Beschriftung - elegantere Lösung?

Re: Button-Beschriftung - elegantere Lösung?

von retuwe61 » Mi, 07.12.2016 11:22

Hallo Tom.
Vielen Dank dafür. Ja, das sieht viel besser aus;-)
Da der Zelleninhalt manchmal länger ist und als Schaltflächenbeschriftung abgeschnitten wird kann man ihn halt erkennen, wenn der Mauszeiger darauf ruht.
Gruß
Uwe

Re: Button-Beschriftung - elegantere Lösung?

von Toxitom » Mi, 07.12.2016 10:59

Hey Uwe,

na, das ist doch nicht so kompliziert;)

Ich nehme mal Deinen Code und ergänze bzw. verbessere. Musst halt evt. die entsprechenden Parameter anpassen oder besser vorher aus dem Dokument auslesen.

Code: Alles auswählen

Sub Button_Name
oDoc = thisComponent
oSheet = oDoc.Sheets.getByName ("Faktorisierung")
oForm = oSheet.DrawPage.Forms.GetByIndex(0)

For i = 1 to 48
  with oForm.getByName("PushButton" & i)
    .Label = ThisComponent.sheets.getByName("Tabelle1_2").getCellByPosition(i, 1).String
    .Helptext = ThisComponent.sheets.getByName("Tabelle1_2").getCellByPosition(i, 1).String
  end with
next
 
End Sub
Warum Du allerdings sowohl das Label als auch den Hilfetext mit dem gleichen Inhalt füllt, mag Dein Geheimnis bleiben;) Ist sicher unsinnig....

Viele Grüße
Tom

[Gelöst] Button-Beschriftung - elegantere Lösung?

von retuwe61 » Mi, 07.12.2016 08:23

Guten Morgen.
Ich möchte 48 Buttons mit Zelleninhalten aus B1 bis AW1 beschriften. Leider scheitere ich an der Schleifenbildung.
Bevor ich nun mühsam den nachfolgenden Code vervollständige, frage ich euch um Rat.
Vielen Dank für die Hilfe.
Gruß
Uwe

Code: Alles auswählen

Sub Button_Name
oDoc = thisComponent
oSheet = oDoc.Sheets.getByName ("Faktorisierung")
oForm = oSheet.DrawPage.Forms.GetByIndex(0)

sButton1 = "PushButton1"
sButton2 = "PushButton2"
'usw.

oBtnA1 = oForm.getByName(sButton1)
oBtnA1.Label = ThisComponent.sheets.getByName("Tabelle1_2").getCellRangeByName("B1").String
oBtnA1.Helptext = ThisComponent.sheets.getByName("Tabelle1_2").getCellRangeByName("B1").String
oBtnA2 = oForm.getByName(sButton2)
oBtnA2.Label = ThisComponent.sheets.getByName("Tabelle1_2").getCellRangeByName("C1").String
oBtnA2.Helptext = ThisComponent.sheets.getByName("Tabelle1_2").getCellRangeByName("C1").String
'usw.

End Sub

Nach oben