*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1] 2   Omlaag

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

0 leden en 1 gast bekijken dit topic.

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 802
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Afbeelding kopiëren met macro
« Gepost op: 04 mei 2020, 16:58:51 »
Beste Oplossers,

Ik heb nog eens een vba vraagje.

In bijvoegsel een Excel bestandje met 5 sheets, nu zou ik willen dat via een macro de afbeelding in blad1 gekopieerd wordt naar de andere 4 bladen.

En eventueel ook het kunnen verwijderen van de afbeelding in de laatste 4 bladen met macro.

Met dank bij voorbaat.

Jean-Pierre
Gelogd
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 JeanPaul

  • Volledig lid
  • **
  • Berichten: 116
  • Oplossing.be
Re: Afbeelding kopiëren met macro
« Reactie #1 Gepost op: 04 mei 2020, 17:54:48 »
Dat zou kunnen met CameraTool, is een copy van foto van blad1
Gelogd

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 802
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Afbeelding kopiëren met macro
« Reactie #2 Gepost op: 04 mei 2020, 18:00:08 »
JeanPaul, mooi maar ik had gevraagd via een macro....

Grts,
Jean-Pierre
Gelogd
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 JeanPaul

  • Volledig lid
  • **
  • Berichten: 116
  • Oplossing.be
Re: Afbeelding kopiëren met macro
« Reactie #3 Gepost op: 04 mei 2020, 18:14:44 »
Ken je de functie van camera tool, die laat de foto van blad1 zien ook bij wijziging, en dat zonder macro.
Gelogd

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 802
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Afbeelding kopiëren met macro
« Reactie #4 Gepost op: 04 mei 2020, 18:21:31 »
JeanPaul, ik ken dat niet, maar de essentie ontgaat mij, ik kan die afbeelding gewoon kopiëren en een paar keer plakken, no problem.

Maar ik wil dit met een macro doen, sneller en zeker als er nog pagina's bij zouden komen.

Grts,
JP.
Gelogd
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 JeanPaul

  • Volledig lid
  • **
  • Berichten: 116
  • Oplossing.be
Re: Afbeelding kopiëren met macro
« Reactie #5 Gepost op: 04 mei 2020, 18:28:58 »
Kijk eens naar mijn voorbeeld , wijzig afbeelding in blad1 en kijk eens dan in de andere tabbladen
Gelogd

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 802
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Afbeelding kopiëren met macro
« Reactie #6 Gepost op: 04 mei 2020, 18:34:50 »
Dat ziet er goed uit, als ik nu ook een beetje begreep hoe we dat doen???

JP
Gelogd
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 JeanPaul

  • Volledig lid
  • **
  • Berichten: 116
  • Oplossing.be
Re: Afbeelding kopiëren met macro
« Reactie #7 Gepost op: 04 mei 2020, 18:37:55 »
Hier een link
Gelogd

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 802
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Afbeelding kopiëren met macro
« Reactie #8 Gepost op: 04 mei 2020, 18:43:31 »
Hey JeanPaul,

Heb het even bekeken, ziet er iets leuks uit  :thumbsup:, ga er mij morgen mee bezighouden.

Dank u wel, het is geen macro, maar toch.....  \o/

Grts,
Jean-Pierre.
Gelogd
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 #9 Gepost op: 04 mei 2020, 20:27:00 »
JeanPaul,

Eventjes mee bezig geweest, of ik doe iets verkeerd maar ik zie bij uw voorbeeld hetzelfde effect.

Als ik de afbeelding vergroot volgt het in de andere pagina's de afmetingen niet op, ik ben bang dat het meer voor tabellen is dan voor afbeeldingen?

Grts,
JP.
Gelogd
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 JeanPaul

  • Volledig lid
  • **
  • Berichten: 116
  • Oplossing.be
Re: Afbeelding kopiëren met macro
« Reactie #10 Gepost op: 04 mei 2020, 21:34:44 »
Nee je doet niets verkeerd, camera tool is een copy van  cel B1:J34 en laat exact zien wat daar instaat
Gelogd

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Afbeelding kopiëren met macro
« Reactie #11 Gepost op: 05 mei 2020, 02:37:36 »
variant op een post eerder deze week
Gelogd

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 802
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Afbeelding kopiëren met macro
« Reactie #12 Gepost op: 05 mei 2020, 08:36:25 »
@ JeanPaul, dat is het nu juist, als ik de afbeelding aanpas zie ik dat niet in de andere pagina's.

@Koe, daar heb ik al iets aan, alleen hij kopieert de afbeelding ook nog eens in pagina 1 en dat zou niet de bedoeling zijn, want dan staat ze er twee keer of meer.

En bij wissen wordt alleen pagina 2 gewist en dat zou pagina 2, 3, 4 en 5 moeten zijn, maar alleen de grote afbeelding,

mijn handtekening die er zou inkomen wordt ook gewist en dat zou ook niet mogen.

Met dank en grts,

Jean-Pierre
Gelogd
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 #13 Gepost op: 05 mei 2020, 09:25:07 »
heel eigenaardig, je afbeelding in blad1 had ik "afbeelding_test" genoemd.
Nu kopieer ik die 3 keer naar ieder werkblad met die ene macro.
Blijkbaar blijven die ook netjes "afbeelding_test" noemen, er wordt geen index of zoiets aan toegevoegd.

De volgende macro, die wist dan op de bewuste tabbladen al die "afbeelding_test"-shapes.

En ja, hij kopieerde ook naar blad1, want ik vergeleek de naam met "blad1" en die vergelijking is standaard hoofdlettergevoelig, daarom bovenin de module die "option Compare Text"
Gelogd

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 802
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Afbeelding kopiëren met macro
« Reactie #14 Gepost op: 05 mei 2020, 09:41:16 »
Dan ga ik hiermee verder aan de slag.

Dank u voor de moeite,

Grts,

Jean-Pierre.
Gelogd
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
Pagina's: [1] 2   Omhoog
 


www.combell.com