Autor
|
Thema: Bild ausblenden (4148 mal gelesen)
|
Oberli Mike Ehrenmitglied V.I.P. h.c. Dipl. Maschinen Ing.
Beiträge: 3728 Registriert: 29.09.2004 Excel 2010 128GB SSD Windows 7
|
erstellt am: 08. Mrz. 2007 14:42 <-- editieren / zitieren --> Unities abgeben:
Hallo, Wollte gerade per Makro ein Bild, welches in Excel eingefügt ist ausblenden. Mit diesem Code geht es nicht. Worksheets("Tabelle1").Shapes("bild_1").Visible = False Leider finde ich in der Hilfe vom Excel nicht die entsprechende Lösung. Wie kann ich per Makro in einem Excel-File ein Bild ausblenden, bez. ein ausgeblendetes Bild wieder einblenden. Hintergrund: In Abhängigkeit einer Auswahl soll das entsprechende Bild erscheinen. Gruss Mike ------------------
The Power Of Dreams Schreib mal wieder Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 08. Mrz. 2007 14:49 <-- editieren / zitieren --> Unities abgeben: Nur für Oberli Mike
Hallo Mike , probier mal diesen hier: "Selection.ShapeRange.Visible = True" bzw. ...False.. WARUM es geht, wenn Du vorher selektierst, kann ich Dir leider nicht verraten; jedenfalls funzt es. Was hilft, ist dem Bild 'nen Namen zu geben. Alternative - hatte ich mal: Alle Bilder liegen in einem seperaten Tabellenblatt; per Copy wird das richtige rübergeholt, das andere entsprechend gelöscht. ------------------ Gruß, Frederik Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Oberli Mike Ehrenmitglied V.I.P. h.c. Dipl. Maschinen Ing.
Beiträge: 3728 Registriert: 29.09.2004 Excel 2010 128GB SSD Windows 7
|
erstellt am: 08. Mrz. 2007 14:56 <-- editieren / zitieren --> Unities abgeben:
|
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 08. Mrz. 2007 15:03 <-- editieren / zitieren --> Unities abgeben: Nur für Oberli Mike
|
startrek Moderator Architekt
Beiträge: 1361 Registriert: 13.02.2003 .
|
erstellt am: 08. Mrz. 2007 15:03 <-- editieren / zitieren --> Unities abgeben: Nur für Oberli Mike
|
Oberli Mike Ehrenmitglied V.I.P. h.c. Dipl. Maschinen Ing.
Beiträge: 3728 Registriert: 29.09.2004 Excel 2010 128GB SSD Windows 7
|
erstellt am: 08. Mrz. 2007 15:20 <-- editieren / zitieren --> Unities abgeben:
Danke mal an alle. Hab jetzt das ganze mal stupid programmiert. Worksheets("Tabelle1").Shapes("CMG_1").Visible = True Hatte vorher das "Tabelle1" mit Dim anzeige As Worksheet Set anzeige = Tabelle1 hinterlegt, und dann weiter mit Worksheets(anzeige).Shapes("CMG_1").Visible = True Das verträgt Excel anscheinden nicht...... Gruss Mike
------------------
The Power Of Dreams Schreib mal wieder Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
startrek Moderator Architekt
Beiträge: 1361 Registriert: 13.02.2003 .
|
erstellt am: 08. Mrz. 2007 15:27 <-- editieren / zitieren --> Unities abgeben: Nur für Oberli Mike
Hallo Mike, wenn du 'anzeige' als Objektvariable für das Sheet nimmst, darfste dann aber nicht über Sheets(index) zugreifen. Also 'anzeige" == Objekt und kein Index;-)
Code: Sub x() Dim anzeige As Worksheet Set anzeige = Tabelle1 anzeige.Shapes("Picture 1").Visible = 0 MsgBox Now Tabelle1.Shapes("Picture 1").Visible = 1 End Sub
lg NancyEine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 08. Mrz. 2007 15:28 <-- editieren / zitieren --> Unities abgeben: Nur für Oberli Mike
Zitat: ...Set anzeige = Tabelle1hinterlegt, und dann weiter mit Worksheets(anzeige).Shapes...
"anzeige" ist bereits ein worksheet, d.h. Du fragst worksheet(worksheet) ab - das würde mir auch nicht gefallen ;-) Was ist mit "anzeige.shapes..."? -Ansonsten schön, wenn's klappt! ------------------ Gruß, Frederik Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Oberli Mike Ehrenmitglied V.I.P. h.c. Dipl. Maschinen Ing.
Beiträge: 3728 Registriert: 29.09.2004 Excel 2010 128GB SSD Windows 7
|
erstellt am: 08. Mrz. 2007 23:53 <-- editieren / zitieren --> Unities abgeben:
|