Instructie gezocht alle afbeeldingen verwijderen

[Ad4Jansen]

Heren/Dames,

Na eerdere successen heb ik de volgende vraag:

Ik heb symbolen ingevoegd vanuit de werkset en daar heb ik vervolgens macro's aangekoppeld.

Het leek mij dat alle tabbladen in mijn bestand identiek waren. Maar nu ik via mijn macro instructie picture 1 en 2 wil verwijderen vindt dat niet op ieder blad plaats.

Het lijkt mij nu dus makkelijker om in mijn instructie op te nemen dat in
1 keer alle ingevoegde symbooltjes weg zijn ipv 1 2 en 3.
Maar ik wil niet mijn ingevoegde logo kwijt!

Maar nu loop ik vast op de instructie:evil:

Alvast bedankt voor de hulp
Mvrgr
Ad

 

[Wigi]

Hoi

Hiervan kan je al vertrekken:

hier

Dan moet je nog inbouwen dat het logo moet blijven staan. Ik zou dat via de naam testen.

Wigi

 

[Ad4Jansen]

Bedankt voor het antwoord! maar.......

Wigi,

Wederom bedankt voor je antwoord :thumb:

maar kan het niet wat eenvoudiger?:shocked:

Ik heb nu de volgende instructie

ActiveSheet.Shapes("Picture 1").Select
Selection.Delete

Dat werkt goed in bijna alle tabbladen maar niet in alle identieke (schijnbaar niet) tabbladen.
Weet je wellicht de oorzaak van dit verschijnsel?? Want dan kan ik misschien in het blad wat wijzigen.
Wat mij ook eenvoudiger lijkt is alle pictures te verwijderen en dan het logo opnieuw in te voegen.

Begrijp me niet verkeerd ik ben heel blij met je antwoord maar voor zoiets kleins zo'n stuk te schrijven waar ik later waarschijnlijk niet meer uitkom. Als het nodig is is het nodig.

Alvast bedankt
AD

 

[Wigi]

Tja, ik had ook kunnen zeggen:

druk F5, Speciaal..., Objecten, klik OK, klik Delete. Maar dan zijn alle objecten weg.

Dat is inderdaad gemakkelijker. Maar als er een aantal moeten blijven staan is het logisch dat het moeilijker wordt, niet?

 

[Ad4Jansen]

dank je Wigi!

Ik ga nu kijken of ik dit in de instructie op kan nemen.

Vervolgens kopieer ik eventueel het logo er weer in

Bedankt
AD

 

[Ad4Jansen]

Wigi heb je een idee hoe.............

Wigi, heb je een idee hoe het komt dat op het ene blad dit wel perfect werkt en de ander niet. Zo op het oog zijn ze identiek.

Heeft het met de locatie of grootte te maken van de afbeelding. Dit kan wel een beetje anders zijn.

Ad

 

[Wigi]

Neen

Hang een voorbeeldje bij met een blad waar het goed gaat en een blad waar het fout gaat. Inclusief de code die je nu gebruikt.

 

[Ad4Jansen]

Wil je mij je emailadres mailen

Wigi,

Wil je mij je emailadres mailen er staan nl bedrijfsgegevens in

Of ga ik nu te ver?!
In ieder geval bedankt voor je medewerking

Ad

 

[Wigi]

Maak een kopie van het bestandje, delete alle gevoelige info.

Je hebt toch enkel wat afbeeldingen nodig, meer niet.