Jinak co tak na první pohled vidím:
ActiveChart.SetSourceData Source:=Range("List1!$A$1:$B$5")Tady bych dal relativní adresu (bez $) - sjednotit to s úvodním selectem (může to dělat problémy při vkládání řádků apod.).
P.citovat
Zaslal/a majoropava 15.4.2012 18:53
Zdravím a nevím co s tím, ve VBA byl vytvořen záznam makra:
Sub Makro1()
'
' Makro1 Makro
Range("A1:B5").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range("List1!$A$1:$B$5")
Range("A7").Select
End Sub
Po spuštění hlásí error 1004 a
chybu na příkazu ActiveSheet.Shapes.AddChart.Select (U aktuálního záznamu není zadaná dimenze platná).
Děkuji za odpověď.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.