OpenOffice.info

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

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

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]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
[/code]
Kann ich sowas in OpenOffice Calc auch realisieren?
Ich freu mich auf jeden Lösungsansatz :)
Beste Grüße aus Wien


[color=#00AA00]
_________________
[size=85][b]Moderation:[/b] Thema von [url=http://de.openoffice.info/viewforum.php?f=2]OOo Calc[/url] nach [url=http://de.openoffice.info/viewforum.php?f=18]OOo Basic und Java[/url] verschoben, wo alle Themen zur Programmierung hingehören.—lorbass, Moderator
[/size][/color]