[Excel/vba]foto's comprimeren dmv macro

[degroot]

Hopelijk heb ik dit in het goede subforum gepost

ik zit met het volgende probleem nl:

Ik wil graag in excel een foto invoegen met daarbij wat tekst.
dat gaat nog allemaal goed.

Maar om het document niet qua grootte de pan uit te laten reizen, wil ik de foto comprimeren(gaat van 900KB naar 60KB).
Als ik de macro opneem, dan word de foto wel gecomprimeerd.
Ook als ik de handeling handmatig uitvoer word de foto gecomprimeerd.

Maar zodra ik de opgenomen macro wil uitvoeren word de foto weer niet gecomprimeerd.

Ik wil dit graag in een macro omdat ik een document voor iemand moet ontwikkelen die zelf niet zo'n excel held is, vandaar!!!

Weet iemand misschien of hier een andere manier voor is??
of mist mijn macro gewoon een stuk code?
met het opnemen krijg ik het volgende stukje code

code:

Selection.ShapeRange.PictureFormat.Brightness = 0.5 
    Selection.ShapeRange.PictureFormat.Contrast = 0.5 
    Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic 
    Selection.ShapeRange.PictureFormat.CropLeft = 0# 
    Selection.ShapeRange.PictureFormat.CropRight = 0# 
    Selection.ShapeRange.PictureFormat.CropTop = 0# 
    Selection.ShapeRange.PictureFormat.CropBottom = 0#

Foto's van te voren comprimeren gaat niet lukken.
de mensen hier weten net hoe ze excel moeten opstarten.

voor alle duidelijkheid heb ik een screenshot toegevoegd.

[ Voor 4% gewijzigd door degroot op 19-07-2005 11:56 ]

[BtM909]

De kans is groot dat de betreffende foto niet is geselecteerd. Je kan eventueel door je foto-collections heen bladeren en de betreffende foto opzoeken. Of je laat vanuit je macro al een foto selecteren, waardoor je die meteen kan bewerken.

[degroot]

Sorry vergeten te melden.

Men klikt eerst de foto aan en dan op de knop comprimeer.
Dan is de juiste foto dus geselecteerd.

Dus dat is denk ik de fout niet

[NMe]

VBA en Excel mogen tegenwoordig in Officesuites en -software.

PW>>OFF

[degroot]

Okee bedankt voor het verplaatsen

twijfelde of het nou bij P&W hoorde of dat het bij officesuites hoorde.
Maar het is weer duidelijk

[Lustucru]

degroot schreef op dinsdag 19 juli 2005 @ 12:13:
Sorry vergeten te melden.

Men klikt eerst de foto aan en dan op de knop comprimeer.
Dan is de juiste foto dus geselecteerd.

Dus dat is denk ik de fout niet

Op het moment dat je op de knop klikt is de foto niet meer geselecteerd, toch?

Anyway, voor zover ik weet is er geen mogelijkheid om de compressie via VBA aan te roepen. Het enige wat je kunt doen is na het invoegen direct de dialoogbox op het scherm te toveren.

[degroot]

Niesje schreef op dinsdag 19 juli 2005 @ 14:59:
[...]
Op het moment dat je op de knop klikt is de foto niet meer geselecteerd, toch?

Jawel dan is de foto nog wel geselecteerd,
want klik ik niet eerst op de foto dan krijg ik de foutmelding met foutopsporing.
Klik ik hem wel aan, dan doorloopt hij de hele macro.

[ Voor 3% gewijzigd door degroot op 19-07-2005 15:24 ]

[degroot]

Hmmm krijg het nog steeds niet werken.

Is er misschien wel een optie, zodat als er op een knop geklikt word het venster van het comprimeren wel aangeroepen word?
Dan hoeft de persoon in kwestie alleen nog maar op comprimeren te klikken om de handeling af te ronden!

Alvast bedankt,

[F_J_K]

code:

    Selection.ShapeRange.PictureFormat.Brightness = 0.5 
    Selection.ShapeRange.PictureFormat.Contrast = 0.5 
    Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic 
    Selection.ShapeRange.PictureFormat.CropLeft = 0# 
    Selection.ShapeRange.PictureFormat.CropRight = 0# 
    Selection.ShapeRange.PictureFormat.CropTop = 0# 
    Selection.ShapeRange.PictureFormat.CropBottom = 0#

Ik zie daar niets tussen staan over comprimeren? Dan is het ook niet vreemd dat dat het niet doet

[degroot]

Haha jah dat geeft hij aan na het opnemen van de macro.
Dus hij neemt het helaas niet mee op in de macro.

Maar kan zon venster wel aangeroepen worden?
(venster: rmuisknop->figuur opmaken)

[F_J_K]

Ik ben even gaan [google=excel vba compress image] en zie dan in de Google cache van http://64.233.161.104/sea...mage&hl=en&client=firefox staan:

quote: http://www.tek-tips.com/v...ad.cfm?qid=1091400&page=2

There is no programmatic compression of pictures in office xp, you can only simplify the way to access compression dialog. You can either make it available at single button click (customise one of visible toolbars by adding compression button; can be found in commands > drawing (category)), or displayed automatically when closing document.
The code in ThisDocument module of template (Normal in my case):

code:

Private Sub Document_Close()
    Dim cbc As Office.CommandBarControl
    Set cbc = CommandBars.FindControl(ID:=6382)
    cbc.Execute
    Set cbc = Nothing
End Sub

You can add code that tests if document was changed or contains any picture, but for me the button can male compression simple enough for average user.

Geen idee of het werkt, zal je even moeten testen. Maar het idee is duidelijk geloof ik, zoek anders de juiste control op

[ Voor 6% gewijzigd door F_J_K op 20-07-2005 11:18 ]

[degroot]

Nee idd zoals het omschreven is werkt het wel.
Gelukkig hoeft er maar 1 iemand met dit document te werken, zodat ik maar 1 maal de werkbalk bij haar hoef toe te voegen(ipv van het hele bedrijf).

Dan hoeft ze ook maar 1 klik meer te geven dus zo'n ramp is het niet.
Alleen zonde dat het niet met VBA kan, had toch leuker geweest

toch bedankt allemaal