Excel - zobrazení / skrytí grafu VBA

Takže takto napsané to funguje, stačilo dát do jedné řádky...

If List2.Range("C14") = "" Then ActiveSheet.ChartObjects("Graf 4").Visible = False Else: ActiveSheet.ChartObjects("Graf 4").Visible = True

Odporucam inak:
Po "then" sa pokracuje v povodnom riadku, ak sa ma priamo vykonat jednoduchy prikaz. Pokial potrebujes vykonavat viac prikazov, ci dalej vetvit podmienku, zapisy prikazov po "then" pis do dalsich riadkov a na konci podmienky nezabudni dat "end if"

Aha, takže Ti jde v podstatě jen o formální zápis kódu (protože jsem moc nechápal, s čím potřebuješ pomoct, když příkazy v původním dotazu byly správné). S ohledem na lepší čitelnost a snažší pochopení kódu, když se k němu po čase vrátíš (aneb - teď je jasné vše, za půl roku nebude jasné nic) je však rozhodně lepší volit tento způsob:

If List2.Range("C14") = "" Then
    ActiveSheet.ChartObjects("Graf 4").Visible = False
Else
    ActiveSheet.ChartObjects("Graf 4").Visible = True
End If

Už jen z toho důvodu, že pokud se ukáže nutnost zapsat další příkazy, jen vložíš další řádky a nemusíš předělávat celý příkaz.

Přesně tak,
jsem si schopný leccos najít, jak se co dělá, ale když to mám pak implementovat do kódu (je tam na můj vkus už docela hodně kódu, ca nějakých 200 řádků, které se ještě prolínají mezi listy) a vyhodí chybu, tak se raději zeptám, nechci něco v tabulce zničit a zároveň jsem přesvědčen, že je to nějaká (pro programátory) volovina, což byl i tenhle případ
Ten tvůj zápis je pěkný.

200 řádků už je na pováženou, zvlášť když jsou většinou zapsány tak prasácky, jak jsi uvedl.
Začni ten kód aspoň trochu strukturovat, jinak se v něm za čas fakt nevyznáš. Základní rady najdeš třeba zde.

Alebo:

ActiveSheet.ChartObjects("Graf 4").Visible = List2.Range("C14") <> ""

Palec hore