Grafiek bereik naar vaste kolommen na insert

[ReneTM]

Hello,

ik heb een sheet die aan de hand van kolom A tot K en rij 1 tot 10 een grafiek laat zien.
Nu wil ik voor kolom B een nieuwe kolom toevoegen en de grafiek nog steeds naar Kolom A-K laten wijzen.
Nu, na de insert past de grafiek zich aan , dus kolom K blijft zichtbaar. Dit wil ik niet.
Ik wil de kolommen A-K zichtbaar houden na een insert.

Hoe kan ik dit uitvoeren?

Alvast dank

 

[Gijsbert1]

Met VBA:

 Columns("B:B").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
 ActiveSheet.ChartObjects(1).Activate
 ActiveChart.SetSourceData Source:=Range("Blad1!$A$1:$K$10")

Voeg een opdrachtknop in (formulierbesturingselement), in je sheet waarin je werkt.
En wijs een module, met bovenstaande code, aan deze knop toe!