Hallo,
> -----Original Message-----
> From: Wolfgang Jäth [mailto:[email protected]]
> Sent: Tuesday, January 28, 2020 8:22 AM
> To: [email protected]
> Subject: Re: [Calc] Icon für Dokument (Win10)
> Uff, das ist ja beides nicht einfacher, wie ich gehofft hatte, sondern
> im Gegenteil viel umständlicher.
Naja, die erste Möglichkeit braucht doch im Normalfall (=alle Blätter der Datei
sind sichtbar) nur wenige Zeilen Code:
akt_name = ThisComponent.CurrentController.ActiveSheet.Name
For i = 0 To ThisComponent.Sheets.Count-1
If ThisComponent.Sheets(i).Name <> akt_name Then
ThisComponent.Sheets(i).isVisible = False
End If
Next i
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, Array())
For i = 0 To ThisComponent.Sheets.Count-1
ThisComponent.Sheets(i).isVisible = True
Next i
Du brauchst dann nur das gewünschte Tabellenblatt für das Bild zu aktivieren
und das Makro zu starten.
(Wie schon angemerkt kommt es aufs erstmalige Speichern an, denn meinerr
Erinnerung nach ändert OO das Thumbnail nachträglich nicht. Aber das lässt sich
ja auch austesten.)
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
