Příspěvky uživatele
< návrat zpět
Dobrý den,
potřebuji poradit jak exportovat objekt (obrázek) z excelu do PNG. Objevil jsem kód pro export grafu, sám jsem ale nedokázal tento kód upravit, aby fungoval pro obecný obrázek. Tady uvádím kód pro graf:
Sub Create_GIF()
Dim mychart As Chart
Set mychart = ActiveSheet.ChartObjects("Graf 2").Chart
mychart.Export Filename:="H:\obrazek.png", _
FilterName:="PNG"
End Sub
Předem díky za pomoc...
Zkusil jsem a výsledkem je další chyba:
Run-time error '-2147467259 (80004005)':
Method 'TickLabels' of object 'Axis' failed
Začínám se domnívat, že chyba neni mezi židlí a počítačem 
Zdravím, potřebuji poradit jak makrem změním barvu písma osy grafu. Zkoušel jsem následující:
Dim CZ As Chart
Set CZ = ActiveSheet.ChartObjects("Graf 6").Chart
CZ.Axes(xlValue).Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(196, 30, 30)
Což mi vyhodilo následující chybu:
Run-time error '-2147467259 (80004005)':
Method 'TextFrame2' of object 'ChartFormat' failed
Nevíte co s tím?
Tak jsem zjistil svůj omyl. Ta hláška, co vyskakovala, tak nebyla kvůli makrům, ale kvůli formátování, které to ve starší verzi nezná. Každopádně mi tu stále zbyl problém s přenesením maker do uloženého sešitu.
Zdravím, potřebuji poradit jak pomocí makra uložit sešit s makry jako sešit xls (bez maker).
Zkusil jsem:
ActiveWorkbook.SaveAs adresaajmeno, FileFormat:=xlExcel8
To mi ale při ukládání vyhodí hlášku, kde se to na makra ptá, což nechci.
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články