Hallo
Ich möchte haben das mein Bild in der Tabelle/Blatt immer automatisch in der Mitte ist, das heißt auch wenn Excel minimiert wird usw.
Habt ihr vielleicht Ideen, egal ob es nur eine Einstellungssache ist oder ob mit VBA.
Beim Googeln kommt nichts herraus.......
Gruß Atschi
Hi Atschi,
deine Infos sind ein wenig dürftig.
Hast du dein Bild als Wasserzeichen, in einem Rahmen, in einem Textfeld, sonst irgendwie eingefügt? Was meinst du mit: soll immer in der Mitte bleiben?
Hi, ich habe ein Excel-Blatt mit 2 Bildern. Eins "Suche" mit einem Makro hinterlegt und eins mit einer Anleitung. Beides sind jpg-Formate.
Dieses wird auf 3 Rechnern geöffnet die verschieden große Bildschirme/Auflösung haben.
Hier möchte ich es so haben das diese 2 Bilder immer in der Mitte des Tabellenblattes sind, die so auch sein wenn man die Excel-Datei minimiert.
Was ich mir so vorstelle wäre das diese Bilder schwebend immer in der Mitte sind.
Einstellungsmässig scheint da nichts zu machen zu sein, oder ??
Hoffe , das ich es einigermassen erklären konnte..... :s
Moin,
das geht mMn nur über ein Makro/VBA (mehrere Subs/Functions).
Danke Günther, für deine schnelle Antwort.
Um das Makro geht es letzendlich ja. Ich habe dabei keine Idee mehr wie ich dieses Makro machen soll.
Hätte da vielleicht jemand eins.....
Wäre nett
Hallo Atschi,
noch eine Zwischenfrage. Du schreibst
Zitat:Hier möchte ich es so haben das diese 2 Bilder immer in der Mitte des Tabellenblattes sind, die so auch sein wenn man die Excel-Datei minimiert.
Wenn die Datei mit dem Tabellenblatt, wo die Bilder drauf sind, minimiert ist, siehst Du doch die Bilder gar nicht mehr, kannst also auch nicht kontrollieren, ob die in der Mitte sind.
Sollen die zwei Bilder aufeinander liegen - nur so sind beide in der Mitte -, übereinander oder nebeneinander?
Hier mal das Prinzip für die Platzierung bei Größenänderung. Allerdings könnte es Probleme geben, wenn das Bild größer ist als der sichtbare Bereich. Das Makro kommt in DieseArbeitsmappe. Auf Kommentare habe ich heute mal verzichtet
Code:
Private Sub Workbook_WindowResize(ByVal Wn As Window)
With ActiveWindow.VisibleRange
ActiveSheet.Shapes("Picture 2").Left = .Cells(1, 1).Left + .Width / 2 - ActiveSheet.Shapes("Picture 2").Width / 2
ActiveSheet.Shapes("Picture 2").Top = .Cells(1, 1).Top + .Height / 2 - ActiveSheet.Shapes("Picture 2").Height / 2
End With
End Sub
Problem ist aber, dass z.B. das Scrollen kein Ereignis auslöst, sodass das Bild dann raus rutscht.
Danke André
Das Makro funktioniert prima.
Stimmt das mit den 2 Bildern muß ich noch lösen.
Gruß Atschi aus V in H