Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Afbeelding kopiëren met macro  (gelezen 13908 keer)

0 leden en 1 gast bekijken dit topic.

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 802
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Afbeelding kopiëren met macro
« Reactie #15 Gepost op: 07 mei 2020, 09:18:52 »
Beste mensen,

Ik ben hier nog eens, ik was vertrokken met het voorbeeld van Koe en dat ging redelijk.

Nu wilde ik dat gebruiken in een ander werkboek en dat was andere koek, ik heb ondertussen al van alles opgezocht en loop steeds vast.

In bijgevoegd voorbeeld wil ik met een macro de afbeelding in blad "Ik" kopiëren naar de volgende 9 bladen. En met een andere macro deze 9 afbeeldingen ook kunnen verwijderen.

Hopelijk vraag ik niet te veel?  :-[

Met dank bij voorbaat en grtjs,

Jean-Pierre.
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Afbeelding kopiëren met macro
« Reactie #16 Gepost op: 08 mei 2020, 06:35:57 »
je had even, als eerste stap,  verder kunnen gaan met onderstaande macro, waarbij je dan de regel, die de afbeelding delete uitschakelt, door er een enkel aanhalingsteken voor te zetten.

Opmerking vooraf, de afbeelding in je tabblad "IK" noemt "Afbeelding 1", dus denk je daarmee safe te spelen, maar niets is minder waar !
Als je die afbeelding niet zelf een naam geeft, durft Excel die wel eens te vertalen !!! (afhankelijk van je taalinstellingen ?)
Je "Afbeelding 1" (zo lees ik dat toch af in tabblad "ik") noemt in VBA hier bij mij dus "Picture 1" en dat kan zijn dat het op een franse excelversie misschien "Image 1" zal noemen.

Geef hem dus zelf een naam en dan heeft Excel niet meer die vrijheid.   
Sub WissenAfbeeldingen()"
   For Each sh In Sheets                         'alle werkbladen aflopen
      If sh.Name <> "blad1" Then                 'niet op blad1
         For Each shp In sh.Shapes               'alle shapes aflopen
            MsgBox sh.Name & vbTab & shp.Name & vbTab & shp.Type   'zeg naam blad, naam shape en shape type
[color=red]            ' [/color]If shp.Name = "afbeelding_test" Then shp.Delete
         Next
      End If
   Next
End Sub

Vermoedelijk is daarmee je probleem opgelost en volgt de rest dan logisch daarop.

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 802
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Afbeelding kopiëren met macro
« Reactie #17 Gepost op: 08 mei 2020, 08:09:24 »
Beste,

Ik denk dat we niet op dezelfde golflengte zitten.

Ik kan nog steeds geen afbeelding kopiëren naar de andere pagina's.

En het deleten werkt ook niet, heb trouwens rode tekst bij

Sub WissenAfbeeldingen()"
En als ik het aanhalingsteken weg doe gebeurd er niets.

Ik heb trouwens een raar gevoel, naargelang er hier zoveel Excel specialisten zijn, krijg ik maar weinig hulp, of vraag ik te veel????

Jean-Pierre.
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline Digicafé

  • Volledig lid
  • **
  • Berichten: 234
  • Geslacht: Man
Re: Afbeelding kopiëren met macro
« Reactie #18 Gepost op: 08 mei 2020, 08:18:15 »
Ik heb trouwens een raar gevoel, naargelang er hier zoveel Excel specialisten zijn, krijg ik maar weinig hulp, of vraag ik te veel? ???


Je bent in goede handen.  Als @cow18 je niet kan helpen spring ik er niet tussen : als hij het niet voor mekaar krijgt, stel ik me bescheiden op ! :-[

Offline Digicafé

  • Volledig lid
  • **
  • Berichten: 234
  • Geslacht: Man
Re: Afbeelding kopiëren met macro
« Reactie #19 Gepost op: 08 mei 2020, 08:32:35 »
In alle eerlijkheid, na alles eens doorgelezen te hebben weet ik ook nog altijd niet waar je nu eigenlijk naar toe wil ? en waarom je 'par force' een macro wil ... voor iets wat eigenlijk copy paste of copy sheet zou moeten zijn.
Je mag altijd proberen eens wat helderder je doelstelling te formuleren !  en doe dat zonder te verwijzen naar technische oplossingen maar gewoon zeggen wat je met dit tool wil bereiken als resultaat.



Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 802
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Afbeelding kopiëren met macro
« Reactie #20 Gepost op: 08 mei 2020, 09:02:00 »
Beste Philip,

Er staan/komen nog meer gegevens op die pagina's, die ingevuld worden via formules, maar als ik met één knop 9 handelingen kan doen zo goed kopiëren als verwijderen dan gaat dat toch sneller niet?

Dus nog eens, de eerste macro zou afbeelding "Test" in pagina "Ik" moeten kopiëren naar de achterliggende 9 pagina's in cel B1.

En de tweede macro zou de afbeelding "Test" uit de laatste negen pagina's moeten verwijderen, het is wel belangrijk dat alleen de afbeelding "Test" verwijderd wordt.

Met dank,

Jean-Pierre.
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline Digicafé

  • Volledig lid
  • **
  • Berichten: 234
  • Geslacht: Man
Re: Afbeelding kopiëren met macro
« Reactie #21 Gepost op: 08 mei 2020, 10:15:36 »
Probleem is dat wat jij 'Test' noemt de inhoud, de tekst in dit geval of de afbeelding is.
Maar de shape die je wil pasten heeft zijn eigen naam.   
En die kan je niet onder controle houden : door een paste van zo'n shape veranderen (eventueel) de namen van andere shapes.


Je kan dus een macro schrijven en de correcte shape 'vastpakken' maar van zodra je één 'paste' hebt gedaan ben je niet meer zeker.  Bij een volgende copy kan het zijn dat je een andere 'Afbeelding 1 ... 2 ... 3' pakt.


En zoals @cow18 als aangaf : die benamingen zijn installatie/taalafh.
Dus gelijk welke macro iemand voor je schrijft met gebruik van 'namen' gaat de mist in als je taal verschilt (vb. ik heb een Engelstalige versie)


Dit is dus een dode denkpiste denk ik ... @cow18 had (zoals meestal) gelijk.

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 802
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Afbeelding kopiëren met macro
« Reactie #22 Gepost op: 08 mei 2020, 10:21:19 »
Dank u wel Philip en Koe,

Dan weet ik nu genoeg om er verder geen latijn (of Chinees) in te steken....

Toch bedankt voor de medewerking en een prettig w-end gewenst.

Grtjs,

Jean-pierre.
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.243
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Afbeelding kopiëren met macro
« Reactie #23 Gepost op: 08 mei 2020, 10:32:37 »
Hallo Jean-Pierre,
Ik heb trouwens een raar gevoel, naargelang er hier zoveel Excel specialisten zijn, krijg ik maar weinig hulp, of vraag ik te veel????
En ik heb het nare gevoel dat deze boute uitspraak bij veel helpers "in het verkeerde keelgat gaat schieten".

Als ik het aantal (Excel-) vragen tel die jij hier ooit gesteld hebt aan vrijwillige helpers, en hoe je even vaak prima geholpen bent, dan denk ik dat je zéér veel hulp hebt gekregen.
Dat dit ene vraagje, hetwelk je trouwens zeer slecht uitlegt, niet beantwoord wordt zoals jij in gedachten hebt is geen reden om dergelijke uitspraak hier neer te pennen. Of het in dank gaat afgenomen worden durf ik te betwijfelen.

Trek je conclusies maar.

SoftAid
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 802
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Afbeelding kopiëren met macro
« Reactie #24 Gepost op: 08 mei 2020, 10:42:25 »
Sorry SoftAid, ik had het zeker niet zo bedoeld hoor, ik kreeg het rare gevoel omdat het nogal lang duurde.

En je zou van mij zeker moeten weten dat ik voor jullie hulp steeds dankbaar ben geweest.

Dus nogmaals een dikke sorry voor wie het verkeerd zou opgevat hebben.  :-[ :-[

Grtjs en een fijn w-end gewenst.

Jean-Pierre.
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Afbeelding kopiëren met macro
« Reactie #25 Gepost op: 08 mei 2020, 13:08:54 »
ik dacht nochtans heel duidelijk alles uitgelegd te hebben.
Met 1 en hetzelfde bestand, maar gestart in een excelversie van een andere taal, kan je geheid problemen hebben met de naamgeving.
Afbeelding wordt picture of image etc.

Beschouw VBA als heel dom, die met een kaartspel, waarbij de rugzijde naar boven boven ligt, iets moet doen.
Dan zeg jij, dat je schoppenboer er uit moet halen, tja, normaal heb je 1 kans op 32 ... .

Zie bijlage, die macro loopt iedere shape in ieder tabblad af, zegt de naam, het type (13=afbeelding, 8=knop) en in welke cel die staat.
Dat schrijft hij ook nog een keer neer in tabblad "ingave" in kolom AA.

Je wil dus met de "test"-afbeelding van tabblad "Ik" stoeien.
Volgens het naamvak, dat je linksboven in je scherm vind, is dat "afbeelding 1", kijk je naar wat mijn VBA ervan gemaakt heeft, dan is dat "picture 1" en in een andere taalversie .... .
Excel is in essentie nog altijd een rekenblad, waar geleidelijk aan extra toeters en bellen aan toegevoegd zijn.
Maak het jezelf gemakkelijk en geef de goeie afbeelding zelf een naam en dan ben je vertrokken.
Hoe kan excel weten welke afbeelding geen handtekening bevat en de tekst "test" bevat ???



Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 802
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Afbeelding kopiëren met macro
« Reactie #26 Gepost op: 08 mei 2020, 15:38:13 »
Koe,

Ik ben juist terug thuis en heb de vba eens doorgenomen, van formules kan ik "soms" nog de logica volgen, maar vba is toch nog wat anders, en ja het werkt.

Hopelijk kan ik het nu zelf een beetje op orde brengen in mijn eigen werkboek.

Toch nog reuze bedankt voor uw moeite.

Grtjs,

Jean-Pierre.
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 802
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Afbeelding kopiëren met macro
« Reactie #27 Gepost op: 09 mei 2020, 15:24:28 »
Beste Cow 18,

Ik kan u bij deze melden dat uw opzet volledig geslaagd is in mijn eigen werkboek, waarvoor nogmaals dank.

Groetjes en nog een prettig weekend.

Jean-Pierre.
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Afbeelding kopiëren met macro
« Reactie #28 Gepost op: 09 mei 2020, 18:06:38 »
mooi dat het werkt en ook dat je dit terugmeldt.
Nog een prettig weekend verder en hou het gezond.
Bart

 


www.combell.com