grafiek grootte aanpassen in excel

Status
Niet open voor verdere reacties.

rogersmeets

Gebruiker
Lid geworden
6 apr 2023
Berichten
74
hallo ik wil in excel een grafiek qua formaatgrootte aanpassen, ik heb te weinig plaats op mijn excel blad voor een paar grote grafieken, daarom wil ik een paar kleine plaatsen en mensen kunnen op de grafiek klikken dan moet ze groot worden ik heb een code gevonden waarmee ik een afbeelding met een muisklik groter of kleiner kan maken.
Ik wil op dezelfde wijze een grafiek van klein naar een grote grafiekmaat maken maar dat lukt niet wat doe ik fout of moet anders ?

De code waarmee ik een afbeelding groter/kleiner maak is deze:
Dim shp As Shape
Dim big As Single, small As Single
Dim shpDouH As Double, shpDouOriH As Double
big = 3
small = 1
On Error Resume Next
Set shp = ActiveSheet.Shapes(Application.Caller)
With shp
shpDouH = .Height
.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
shpDouOriH = .Height

If Round(shpDouH / shpDouOriH, 2) = big Then
.ScaleHeight small, msoTrue, msoScaleFromTopLeft
.ScaleWidth small, msoTrue, msoScaleFromTopLeft
.ZOrder msoSendToBack
Else
.ScaleHeight big, msoTrue, msoScaleFromTopLeft
.ScaleWidth big, msoTrue, msoScaleFromTopLeft
.ZOrder msoBringToFront
End If
End With
 
Gebruik code tags rondom VBA-code.
Stuur een voorbeeldbesstand mee.
 
Onderstaand de bijlage in het bestand staat wat de bedoeling is.
 

Bijlagen

  • afbeelding vergroten - verkleinen met een muisklik.xlsm
    36,8 KB · Weergaven: 9
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan