Hi guys
After searching an hour for the correct code. I am creating a new shape with this code:
Sheets("processtyring").Unprotect Password:="HKV"
ActiveSheet.Shapes.AddChart(xlBarStacked, 150, 150, 1000, 250).Select
Sheets("processtyring").Protect Password:="HKV"
Now i...