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 1

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

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Tlac s farebneho

ivana1 • 19.6. 22:16

GRAF teploty

Scraper • 18.6. 15:34

Vyhledat dnešní datum když je číslo jako text

veny • 17.6. 13:56

Vyhledat dnešní datum když je číslo jako text

Ontik • 17.6. 12:07

Zaokrouhlování

lubo • 17.6. 12:03

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52