Aby zapisać wykres z excela do gif należy wykonać następujący kod.
Fname = ThisWorkbook.Path & "\" & Charts("Nazwa").Name & ".gif"
Charts("Nazwa").Export Filename:=Fname, FilterName:="GIF"
Należy w miejsce nazwa wprowadzić własne. This workbook path zapisze w tym samym folderze co plik ale można wprowadzić dokładną ścieżkę do innego miejsca na dysku.
Brak komentarzy:
Prześlij komentarz