• 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.

Grafiek "vastzetten"

Status
Niet open voor verdere reacties.

Takkebos

Gebruiker
Lid geworden
16 feb 2001
Berichten
141
Hoi,

ik heb in Excel 2002 een grafiek gemaakt, deze wordt opgesteld nav een door mij opgestelde tabel. De tabel en grafiek staan in 1 sheet naast elkaar.

Naarmate de tabel langer wordt (dus meer rijden aan de onderkant er bij krijgt), scrollt de pagina telkens verder naar boven. De grafiek scrollt dan ook mee naar boven, en verdwijnt op gegeven moment uit beeld.

Mijn vraag nu: is er een instelling mogelijk in Excel waarmee ik er voor kan zorgen dat de grafiek altijd zichtbaar blijft, hoe ver ik ook naar beneden ga met de tabel? Hij zou dus een soort van flexibele positionering moeten hebben...

Ik kan de kolom-hoofden via Freeze Panes zichtbaar houden, met de grafiek lukt het me echter niet..

Wie heeft hier een oplossing voor?

Takkebos
 
Wellicht niet een oplossing, maar je kan de Freeze Panes onder de grafiek zetten.

Zoniet, dan zal het programmeren worden in VBA.
 
Volgende code heb ik ooit eens gemaakt om een combox te verplaatsen op het werkblad.
Misschien is dit aan te passen om ook een grafiek dmv knoppen in je werkbalk te verplaatsen. Het is maar een idee maar mischien ben je er iets mee.

Code:
Sub MoveBoxRight()
'ComboBox naar rechts verplaatsen
    Sheets("Statistieken").Select
    ActiveSheet.Shapes("ComboBox1").Select
    Selection.ShapeRange.IncrementLeft 200#
    Selection.ShapeRange.IncrementTop 0#
End Sub
Sub MoveBoxLeft()
'ComboBox naar links verplaatsen
    Sheets("Statistieken").Select
    ActiveSheet.Shapes("ComboBox1").Select
    Selection.ShapeRange.IncrementLeft -200
    Selection.ShapeRange.IncrementTop -0
End Sub
Sub MoveBoxDown()
'ComboBox naar onder verplaatsen
    Sheets("Statistieken").Select
    ActiveSheet.Shapes("ComboBox1").Select
    Selection.ShapeRange.IncrementLeft 0#
    Selection.ShapeRange.IncrementTop 200#
End Sub
Sub MoveBoxUp()
'ComboBox naar boven verplaatsen
    Sheets("Statistieken").Select
    ActiveSheet.Shapes("ComboBox1").Select
    Selection.ShapeRange.IncrementLeft -0
    Selection.ShapeRange.IncrementTop -200
End Sub

Mvg

Rudi
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan