scherm aanpassen aan afbeelding

[Eastw00d]

ik heb een scherm met daarin een afbeelding. Nu is het de bedoeling dat het werkblad de maat van deze afbeelding aanneemt, dus alle rijen/kolommen er omheen verdwenen zijn
Hoe los ik dit op?

 

[edmoor]

Je hebt dus niet een scherm met een afbeelding erin maar een document? Plaats eens een voorbeeld document.

 

[Eastw00d]

zo ietsBekijk bijlage voorbeeld.xlsx

 

[edmoor]

De exacte bedoeling is me niet duidelijk, maar je kan hier mee spelen:

    With Application
        .WindowState = xlNormal
        .Height = ActiveSheet.Shapes("Afbeelding 1").Height + 210
        .Width = ActiveSheet.Shapes("Afbeelding 1").Width
    End With

Al zal het lastig blijven.

 

[Eastw00d]

Die code zal wel in het visual basic gedeelte geplakt moeten worden denk ik, maar de vraag is waar

 

[VenA]

Dat mag je natuurlijk geheel zelf bepalen. Zet in Blad2 de verwachte uitkomst en plaats het bestandje hier.

 

[Eastw00d]

nu ben ik je even kwijt..

 

[VenA]

En waar ben je iemand kwijt geraakt? Het lijkt mij niet zo'n enorme klus om even een voorbeeldje te plaatsen met de verwachte uitkomst.

 

[edmoor]

Maak er even dit van:

Sub Grootte
    With Application
        .WindowState = xlNormal
        .Height = ActiveSheet.Shapes("Afbeelding 1").Height + 210
        .Width = ActiveSheet.Shapes("Afbeelding 1").Width
    End With
End Sub

Plak dat ergens in de Visual Basic Editor, zet de cursor op een regel tussen de Sub en de End Sub en druk dan op F5.
Waar het exact moet komen te staan is helemaal afhankelijk van wat je er precies mee wilt gaan doen. Het zal niet om 1 plaatje gaan dat al in het document staat.