пропозиції роботи
Piotr Kasprzyk Logistyka
Temat: Arkusz ecxel wo formatu jpg
Witam,Potrzebuje pomocy w zwiazku z zapisaniem jednego arkusza excela do formatu jpg. Czy jest taka mozliwosc korzystajac z kodu VB?
dzieki za pomoc
pzdr
p.
Potrzebuje pomocy w zwiazku z zapisaniem jednego arkusza excela do formatu jpg. Czy jest taka mozliwosc korzystajac z kodu VB?
dzieki za pomoc
pzdr
p.
Tomasz
Gryzio
Dyrektor
zarządzający/Trener/
Konsultant - It
School
Temat: Arkusz ecxel wo formatu jpg
Witam,Tak jest taka możliwość:
Sub Export_2_jpg()
Dim rngRange As Range
Dim chrtCht As Chart
Set rngRange = Range("A1:B2")
Set chrtCht = Charts.Add
rngRange .CopyPicture xlScreen, xlPicture
chrtCht.Paste
chrtCht.Export Filename:="C:\temp\SavedRange.jpg", Filtername:="JPG"
End Sub
Pozdrawiam!
Piotr Kasprzyk Logistyka
Temat: Arkusz ecxel wo formatu jpg
Dzieki wielkie. moze mala pomoc z ponizszym makrem ? Kopiuje ono arkusz do powerpointa jednak chcialbym jeszcze uscislic miejsce do ktorego arkusz ma byc kopiowany, chodzi o okresleniu numeru slajdu w prezentacji.Sub Makro4()
Application.DisplayAlerts = False
Workbooks.Open Filename:="C:\Users\user\Desktop\Nowy folder\test1.xls"
Cells.Select
Selection.Copy
ActiveWindow.Close
Dim PowerPointApp As Object
Set PowerPointApp = CreateObject("PowerPoint.Application")
PowerPointApp.Visible = True
PowerPointApp.Presentations.Open ("C:\Users\user\Desktop\Nowy folder\test.ppt")
PowerPointApp.ActiveWindow.View.Paste
PowerPointApp.ActivePresentation.SaveAs ("C:\Users\user\Desktop\Nowy folder\test4.ppt")
PowerPointApp.Quit
End Sub
Piotr Kasprzyk Logistyka
Temat: Arkusz ecxel wo formatu jpg
Tomasz Gryzio:
Witam,
Tak jest taka możliwość:
Sub Export_2_jpg()
Dim rngRange As Range
Dim chrtCht As Chart
Set rngRange = Range("A1:B2")
Set chrtCht = Charts.Add
rngRange .CopyPicture xlScreen, xlPicture
chrtCht.Paste
chrtCht.Export Filename:="C:\temp\SavedRange.jpg", Filtername:="JPG"
End Sub
Pozdrawiam!
mialbym jeszcze pytanie, makro to dziala w tym samym pliku ktory zawiera arkusz do zapisania w formacie jpg. Jak zapisac to makro w osobnym excelu by dzialalo na inny plik excela ?Probowalem wstawic na samym poczatku: Workbooks.Open Filename:="C:\Users\user\Desktop\Nowy folder\test.xls"
Sheets("Arkusz1").Select
- ale niestety nie dziala.
Sławomir
Broda
VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...
Temat: Arkusz ecxel wo formatu jpg
Sub Export_2_jpg()Dim rngRange As Range
Dim chrtCht As Chart
set nowy = Workbooks.Open Filename:="C:\Users\user\Desktop\Nowy folder\test.xls"
Set nowy.rngRange = Range("A1:B2")
Set nowy.chrtCht = Charts.Add
rngRange .CopyPicture xlScreen, xlPicture
chrtCht.Paste
chrtCht.Export Filename:="C:\temp\SavedRange.jpg", Filtername:="JPG"
End Sub
Podobne tematy
-
Excel » Problem - wyszukaj 2 kolumny i wklej wiersz w drugi arkusz -
-
Excel » Wysypał się arkusz -
-
Excel » Drukuj dany Arkusz jeżeli spełniony jest warunek -
-
Excel » VBA - marko kopiowanie zmienionych danych z 1 arkusz do... -
-
Excel » Kilka Arkuszy excel w jeden Arkusz. -
-
Excel » Arkusz google formatowanie warunkowe -
-
Excel » zmiana formatu ciągu liczbowego na nieliczbowy jak zrobić -
-
Excel » Prośba o pomoc zmiana na tekst formatu 3 miejsc po przecinku -
-
Excel » Zmiana formatu wyświetlania godziny -
-
Excel » VBA - zmiana formatu - czas -
Następna dyskusja:
