Bilder in Zelle durch anklicken vergrößern

[allphons]

Es geht um eine Inventartabelle mit Bildern der Objekte.
Für Excel hab ich einen Code für ein Makro gefunden, womit ein Bild in der Tabelle durch anklicken vergrößert wird:

Code: Alles auswählen

Sub Bild_aendern()
ActiveSheet.Shapes(Application.Caller).Select
If Selection.ShapeRange.Width < 100 Then
Selection.ShapeRange.Width = 600
Selection.ShapeRange.Height = 160
Selection.ShapeRange.ZOrder msoBringToFront
Else
Selection.ShapeRange.Width = 50
Selection.ShapeRange.Height = 13
End If
ActiveSheet.Cells(Selection.TopLeftCell.Row, 1).Select
End Sub

Kann ich sowas in OpenOffice Calc auch realisieren?
Ich freu mich auf jeden Lösungsansatz
Beste Grüße aus Wien



_________________
Moderation: Thema von OOo Calc nach OOo Basic und Java verschoben, wo alle Themen zur Programmierung hingehören.—lorbass, Moderator

[pmoegenb]

Achtung Crossposting: Siehe http://www.openoffice-forum.de/viewtopic.php?f=5&t=5487