Grafiik mit Zelle ausblenden

[philippo06]

Hey zusammen,

hab folgendes Problem:
in einer Liste, in der in der Spalte A jeweils eine Grafik eingefügt wurde, soll nach spez. Kriterien gefiltert werden, od. Zeilen ausgeblendet werden.
Dabei bleiben allerdings die Grafiken in der Zeile bestehen,

gibt es eine Möglichkeit dies zu umgehen?
danke im Voraus!
lg Philipp

[Wastl]

Hi,

ja,

Wenn Du das Bild passend gemacht hast, dann ändere noch eine Eigenschaft: 
- Rechtsklick auf die Grafik 
- Grafik formatieren 
- Register: 'Eigenschaften' 
- Von Zellposition und -grösse abhängig markieren - OK 

Bei vielen Bildern ist das Mühselig. Dann machs mit VBA:

Code:

Sub billlder()
Dim i
For i = 1 To ActiveSheet.Shapes.Count
   ActiveSheet.Shapes(i).Select
   Selection.Placement = xlMoveAndSize
Next
End Sub

[schauan]

Hallöchen,
... oder ohne Select:

Code:

Sub billlder()
Dim Bild As Shape
For Each Bild In ActiveSheet.Shapes
   Bild.Placement = xlMoveAndSize
Next
End Sub

Falls Du noch andere Shapes im Blatt hast als mur Bilder und die nicht beeinflussen willst, müsste man noch eine Fallunterscheidung reinbringen.