• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Afbeeldingsformaat aanpassen naar afdrukbereik

Status
Niet open voor verdere reacties.
S

skystormer

Gebruiker
Lid geworden
8 mrt 2011
Berichten
194
Dag heren/dames,

Ik werk met een invulblad waarbij op 1 van de tabbladen een afbeelding wordt geplaatst en deze vervolgens altijd handmatig wordt verkleind/vergroot naar afdrukbereik.
Nu heb ik met beperkte kennis een macro gemaakt (mbv opnemen, welke de afbeelding aanpast naar een vaste afmeting) en deze onder een ActiveX element gehangen. (knop) Deze werkt alleen als eerste de afbeelding wordt geselecteerd.

Echter wat ik mij afvraag of het mogelijk is als dat een afbeelding ingeplakt wordt (vanuit klembord) deze automatisch naar een bepaald formaat kan worden omgezet?

Het betreft dus een blad waar altijd maar 1 afbeelding zal staan (zonder extra tekst/info). En deze wil ik standaard geheel afdrukken op 1 pagina.
Voor mijn werkbestand betreft dit een tabblad van een groter geheel. Waar deze afbeelding extra info geeft (de afbeelding zelf is in principe een pdf bestand wat als afbeelding in excel geplakt wordt)

Alle soorten van suggesties sta ik voor open.

Alvast dank voor het meedenken.
 

Bijlagen

  • afdruktest.xlsx
    15,5 KB · Weergaven: 23
Laatst bewerkt:
Je gaf het zelf al aan:

Start de macrorecorder.

Importeer de afbeelding, en versleep deze naar het juiste formaat.

Stop de macrorecorder, et voila..
 
zo ?
 

Bijlagen

  • afdruktest.xlsm
    33,5 KB · Weergaven: 27
Helaas gaat die niet lukken hier.
Dit omdat een afbeelding in excel wordt geplakt vanuit een knip programma.
Ik ga hetgeen toepassen wat ik in eerste instantie gemaakt had. Dit voldoet namelijk.

Dank je voor het voorbeeld. Hier heb ik wel weer van kunnen leren.
 
eigenlijk zouden dan de eerste regels vervallen en zou alleen het laatste deel, waar de shape met het hoogste nummer behandeld wordt kunnen doorwerken.
Hoe zag jouw macro er anders uit ?

Code: 
[COLOR="#FF0000"]verwijder de rode tekst[/COLOR]
Sub afbeelding[COLOR="#FF0000"](filenaam)[/COLOR]
   Set Sh = Sheets("bubble drawing")
   With Sh
     [COLOR="#FF0000"] .Pictures.Insert filenaam[/COLOR]
      With .Shapes(.Shapes.Count)
         .Top = Sh.Range("A1").Top
         .Left = Sh.Range("A1").Left
         .LockAspectRatio = msoFalse
         .Width = 670                            '= breedte
         .Height = 490                           'hoogte
      End With
      .PrintPreview
   End With
End Sub
 
Zie nu dat deze niet goed was meegenomen bij mijn eerdere bestand.

Code: 
Sub BubbleDrawing()
'
' BubbleDrawing Macro
'

'
    Selection.ShapeRange.Height = 496.062992126
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Width = 671.811023622
End Sub

Is wat ik gebruik, maar moet zeggen, die van jou ziet er zeker beter uit. En werkt beter, aangezien ik altijd een afbeelding eerst moest selecteren. Anders gaf dit een foutmelding.
 
Laatst bewerkt:
aardig gelijklopend zou ik zeggen
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan