Seite 1 von 1

Grafik zum Hyperlink-Startbutton machen

Verfasst: Mi, 10.05.2017 06:41
von clag
Moin Kenner und Könner,

habe noch Fragen zu in Calc eingefügten Grafiken

1. kann man die grünen Anfasser die eine Grafik bekommt wenn man draufklickt irgendwie deaktivieren/ausblenden?

Code: Alles auswählen

   oSheet.DrawPage(i).moveprotect = true
   oSheet.DrawPage(i).sizeprotect = true
ist bereits gesetzt aber die Anfasser sind noch immer sichtbar

2. kann man die Grafik irgend wie mit einem Hyperlink verknüpfen, so das ein Klick auf die Grafik den Link öffnet?

Re: Grafik zum Hyperlink-Startbutton machen

Verfasst: Mi, 10.05.2017 13:42
von TrueColor
zu 1: die Grafik in den Hintergrund bringen, dann ist die nur noch über den Navigator markierbar.

Allerdings weiß ich nicht, wie man in Macro umsetzt.

Edit: Übers Kontextmenü der Grafik: Anordnung > In den Hintergrund

Re: Grafik zum Hyperlink-Startbutton machen

Verfasst: Do, 11.05.2017 16:56
von clag
Hallo Gast Wim und TrueColor
erst einmal Danke an euch beide

@ Wim,
dein Vorschlag funktioniert auch in Windows einwandfrei, so hatte ich mir das vorgestellt :tumb up:

@ TrueColor
mit deinem Vorschlag hatte ich auch schon rumprobiert und dann ein Makro mit einem Text verknüpft der in der Zelle darüber lag.

Aber direkt auf das Bild klicken ist doch das was man gewoht ist ....

Re: Grafik zum Hyperlink-Startbutton machen

Verfasst: Do, 11.05.2017 18:28
von clag
Hallo Zusammen,

da habe ich jetzt doch noch ein Problem,
wenn ich nun auf so ein Bild, das mit einem Makro verknüpft ist klicke, bleibt der Cursor in der zuletzt aktiven Zelle stehen, dh das Bild bzw die AnkerZelle wird nicht selektiert und ich kann bei mehreren Bildern nicht ermitteln welches Bild angeklickt wurde :(
Das ist aber nötig, sonst müste ich für jedes Bild ein eigenes Makro hinterlegen, Bei mehr wie 10 Bildern ziemlich doof.
Wenn ich das verknüpfte Makro mit

Code: Alles auswählen

MeinMakro (event)
aufrufe gibt es eine Fehlermeldung
error(event).png
error(event).png (4.26 KiB) 5171 mal betrachtet


Also meine Frage ist nun, wie bekomme ich heraus, welches Bild angeklickt wurde?

Re: Grafik zum Hyperlink-Startbutton machen

Verfasst: Fr, 12.05.2017 08:41
von TrueColor
Kannst du nicht mit dem Namen der Grafiken arbeiten?
oSheet.Drawpage(i).Name

vlt. nützt dir das Codeschnipsel was:

Code: Alles auswählen

    oSheet = ThisComponent.CurrentController.ActiveSheet
    oPage = oSheet.DrawPage
    sBildName = oSheet.getCellRangeByName("B4").getString & "_" & oSheet.getCellRangeByName("D4").getString

    For i = 0 To oPage.count - 1
    	If oPage(i).Name = sBildName Then
    	[...]
Ich habe hier allerdings den Bildnamen aus dem Zellinhalt generiert.

Vlt. könntest du Zellen verbinden und so groß machen, dass das Bild hineinpasst. Das Bild in den Hintergrund bringen. Beim Klicken wird dann die Zelle statt dem Bild ausgewählt. Dann mit dem Namen der ausgewählten CellRange weiterarbeiten.

(Ich verankere meine Grafiken immer an der Seite, finde ich sicherer)

Re: Grafik zum Hyperlink-Startbutton machen

Verfasst: Sa, 13.05.2017 07:17
von Stephan
1. kann man die grünen Anfasser die eine Grafik bekommt wenn man draufklickt irgendwie deaktivieren/ausblenden?
Ja, das nennt sich "grafische Schaltfläche", erreichbar über die Steuerelement-Symbolleiste.

Du musst dazu die Grafik ins Dokument packen und per Makro beim Öffnen auspacken und zuweisen, das ist aber unproblematisch. Beispiel siehe:
viewtopic.php?f=25&t=65927


Nein, das ist nicht das wonach Du fragst, aber genau das was Du eigentlich brauchst, statt dem Herumgefrickel mit einem Bild, dessen Anfasser nicht sichtbar sein sollen.


Gruß
Stephan