Excel, tonen afbeelding linksboven in werkblad (vba)

Situatie:
Je wilt tijdens het navigeren door de cellen op een werkblad een afbeelding (shape) altijd linksboven in het werkblad tonen.

Oplossing:
Iedere keer als de selectie wijzigt, dient de afbeelding opnieuw op het scherm te worden gepositioneerd. We maken hierbij gebruik van VBA en de getriggerde procedure "Worksheet_SelectionChange()"

De betreffende procedure in de programmacode van het werkblad, ziet er dan als volgt uit:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.ScreenUpdating = False
  ActiveSheet.Shapes("TemplateBuildingLogo").Left = ActiveWindow.ActivePane.VisibleRange.Columns.Left
  Application.ScreenUpdating = True
End Sub

Waarbij "TemplateBuildingLogo" de naam is van de afbeelding.

Probeer het eens uit, en leer, steeds meer !

Naar boven . . .