Corel FORUM

[chezare]

Bunch, ja wiem skąd dopisek pod nickiem. Jak już zapewne zauważyłeś, to MaroQ zajmuje się zawodowo pisaniem makr i pewnie stąd założenie, że ty rozbebeszając Corela w poszukiwaniu kolejnych błędów już dawno trafiłeś w Narzędzia i do edytora visual basica, bo to tam musi się znaleźć ten tekst.
To co napisałeś na niebiesko, najlepiej wyjaśni ci ten obrazek

To są po prostu teksty, które wyświetli makro w oknie z pytaniem o to gdzie obrazki mają być zapisane. Przy okazji, to makro zapisze wszystkie obrazki do wskazanego katalogu, to czy zaznaczyłeś wszystkie bitmapy czy tylko jedną nie ma znaczenia. Jak są przezroczyste, to będzie kłopot, bo makro traktuje wszystkie jak leci jednakowo. Po drugie, jak w okienko z pytaniem o to gdzie mają zostać zapisane obrazki podasz nieistniejący katalog, to nic ci się nie zapisze, bo makro nie tworzy folderu w przypadku jego braku. Dla pocieszenia powiem ci, że czy te obrazki się gdzieś zapiszą czy nie, to makro i tak pochwali się sukcesem jaki osiągnęło
Jeśli teraz masz zamiar napisać coś głupiego pod adresem Szamana, to się zastanów żeby cię jakaś klątwa nie dosięgła Ja bym to makro zmodyfikował, ale po pierwsze nie jest moje, a po drugie, nie wiem jak
Gdybyś jednak uznał, że może ci się ono do czegoś przydać, to poradziłbym zrobić tak:
Uruchomić Corela i z menu wybrać Narzędzia → Visual Basic → Record
Rozpocznie to nagrywanie makra. Teraz program każe ci wpisać nazwę makra i jak ma zostać zapisane. Do wyboru masz aktualnie otwarty dokument (domyślnie) lub wybierasz coś z listy. Jak wybierzesz GlobalMacro, to będziesz miał do niego dostęp z każdego dokumentu. Możesz jeszcze dodać opis makra. Jak Wpisałeś nazwę, tutaj lepiej daruj sobie jakieś fantazyjne nazwy z ą ę czy spacjami, bo tak nie można i wybrałeś z listy GlobalMacro, to klikasz OK. Nic się nie dzieje, bo program czeka na to co zrobisz. Najlepiej nic nie rób, tylko ponownie udaj się do Narzędzia → Visual Basic i wybierz Stop.
Makro zostało zarejestrowane. Teraz musisz się do niego dostać żeby zmodyfikować jego zawartość. Znowu narzędzia → visual basic i visual basic editor (Alt+F11).
Szukasz czegoś takiego:

Skasuj cały wygenerowany tekst i skopiuj w jego miejsce makro Szamana.
Od tej pory będziesz mógł uruchamiać makro z każdego dokumentu wybierając narzędzia visual basic i play, z listy musisz wybrać gloabalmacro i na wyświetlonej liście nazwę swojego makra. Pewnie da się to prościej zrobić, ale upał powoduje, że jakoś opornie mi się myśli.

[Bunch]

Chezarre, jak zwykle, dzięki za opis. Jednak i tak to wszystko na nic bowiem makro Szamana nie działa.

Robię tak jak to opisałeś, czyli wpisuję i wybieram swoją nazwę:




Wklejam wszystko zgodnie z opisem (co ciekawe wpisanej nazwy mojego Makra nie widać w żadnych polach! Wpisałem jego nazwę w stylu "ExportAllPNGFiles" a jedyne co widzę to jakieś... "Recorded.Macros.ExportThisShit". Co jest? Czemu nie widnieje moja wpsiana uprzednio NAZWA na liście?):





Tak czy siak... Po włączeniu tego makra i wskazaniu przygotowanego katalogu, dostaję takie coś tylko:




Makro nie działa.

[miszcz301]

Nazwa ExportThisShit jest nazwą wpisaną przez autora macra, więc najlepiej w kodzie pokazanym na drugim screenie zamiast niej wpisz swoją nazwę macra.

po zmianie nazwy powinieneś widzieć swoją nazwę w global macros

u mnie działa. sprawdziłem

[Bunch]

Dzięki - teraz wiem jak zmienić część tej całej nazwy.

No ale.. No na rany Chrystusa, jak działa skoro mi nie działa? Za każdym razem błąd.
Niech mi ktoś pomoże

[chezare]

Bunch, napisałem "Skasuj cały wygenerowany tekst i skopiuj w jego miejsce makro Szamana.", a ty nie skasowałeś. Masz dwa nagłówki jednej procedury i dlatego jest błąd.
Wejdź do edytora VBA, znajdź to makro i skasuj od Sub ExportThisShit aż do sub nazwa pod którą zarejestrowałeś makro i będzie działać.
Jak by jednak jakimś cudem nie działało, to skopiuj całą treść i wklej na forum. Bez Szamana też jakoś znajdziemy błąd

[Bunch]

[chezare]

Bunch, skoro wyświetla ci się nazwa procedury Szamana, to znaczy że nie wszystko skasowałeś. Trochę to chyba moja wina bo chciałem prosto, a wyszło jak wyszło.
Na razie nie mam jak ale wkrótce napiszę ci jak to zrobić żeby działało.
Pozdro

[Bunch]

[chezare]

Mam na myśli to, że jak wyświetla się tekst z nazwy procedury Szamana, to gdzieś tam musi siedzieć, bo z powietrza komputer go nie bierze. Bunch wejdź do edytora VBA z dokumentu, w którym masz jakieś bitmapy (tak jak na obrazku, który zamieściłeś), znajdź tą swoją procedurę, umieść kursor dajmy na to w nagłówku procedury i kliknij ikonę run.
Ja się za bardzo na tym nie znam, ale jak na mój gust, to masz tę procedurę w dwóch egzemplarzach. To co w screenie nie ma prawa wyświetlić tekstu Szamana.
Procedura działa, bo sam to sprawdzałem, choć jak podasz np. katalog, który nie istnieje, to nic się nie zapisze, a program poinformuje cię o sukcesie. Jak podasz katalog, do którego już zapisywałeś w ten sposób pliki, to diabli je wezmą, bo procedura nadpisze je nowymi. Szaman ostrzegał, że to nie jest cud techniki.

[Bunch]

http://s1.pokazywarka.pl/...106/1769334.jpg
Tu ci pokazałem coś

[maroQ]

[chezare]

Szaman, wszystko jedno czy kod darmowy czy komercyjny ale od profesjonalisty można chyba oczekiwać jakiegoś przyzwoitego poziomu?

[Bunch]

UWAGA!

Szaman dzięki za poprawkę. Bardzo dziękuję bo musiałeś się trochę natrudzić to pisząc.
Wiedz jednak - jako taka ciekawostka - że tym razem jest już o połowę lepiej niż było.
Zaraz Ci wszystko przedstawię.

Sprawdziłem ten skrypt. Sprawa niestety nie wygląda najciekawiej, ponieważ i tak się on źle sprawuje, co więcej - wyciąga mi jakieś oryginalne grafiki sprzed przeróbki i zapisuje do PNG.

No ale po kolei.

Błąd pierwszy:
W polu gdzie wpisujemy adres ścieżki, gdzie chcemy zapisać powstałe grafiki, gdy wpisujemy slash "\" powstaje nam zamiast niego znak "{". Albo jest to jakieś inne dziwadło. Nie można wpisać więc ścieżki ręcznie, trzeba kopiować pełną ścieżkę lub pojedyncze znaki "\" i wstawiać tam gdzie chcemy.

Błąd drugi:
Skrypt działa jak sobie z prostego projektu powyciągam grafiki. Mam nieskomplikowany projekt w którym jest kilka grafik - skrypt działa. Jednak gdy mam projekt w którym grafiki aż się kotłują na ośmiu stronach to skrypt zwraca błąd. A jak wcisnę klawisz 'DEBUG' z komunikatu błędu to odsyła mnie do skryptu i zaznacza tę linijkę:



Mówi Ci to coś, Szamanie?

No mówisz o kupnie, ale nawet sprawdzone i poprawione wersje nie działają w moim przypadku

[chezare]

O matko, samobójca.

[maroQ]

[Bunch]

Cytat:

O matko, samobójca.

O co chodzi Chezarre?
Odnosisz się do mojego postu, mając na myśli to, że człowiek, który pisze makra komercyjnie, zrobił coś dla kogoś za darmo, a ten ktoś ma jeszcze do niego jakieś pretensje?
To nie są "pretensje", po prostu niezobowiązująco wskazuję to co jest nie tak, informuje że coś takiego nie działa. To doskonalenie swojej sztuki.

Cytat:

Co do zamiany "\" na "{" to nie wiem co u ciebie jest nie tak. Może masz ustawiony język klawiatury na "polski 214" zamiast "polski programisty"?

Uwaga! Za drugim razem, problem z "\" faktycznie nie występuje. nie wiem dlaczego tak się stało wcześniej - przecież nie zawracałbym Ci tym głowy.



Jak widzę program zapisuje też grafiki z małej rozdzielczości. Czy jest możliwe zrobienie tak, aby makro zapisywało grafiki w jak największych rozdzielczościach? Nie mówię abyś coś z tym robił w tym kierunku. Pytam się tylko teoretycznie, z ciekawości. Czy można napisać skrypt tak by generował je w rozdzielczości np 300 DPI?


Ścieżkę do katalogu również podaję poprawnie.

- plik z projektem Wyślę na wiadomość prywatną, dobrze? Sporo waży i załączyć do forum się nie da.

[maroQ]

Kod:

Sub EksportAllImages()     Dim p As Page     Dim s As Shape     Dim expflt As ExportFilter     Dim dirName, report As String     Dim cnt As Integer         dirName = InputBox("Wprowadź lokalizację plików (katalog):", "Ścieżka do plików", "C:\pliki\")         cnt = 0     report = "Wygenerowano pliki:"         For Each p In ActiveDocument.Pages     p.Activate         For Each s In p.Shapes             If s.Type = cdrBitmapShape Then                 ActiveSelectionRange.RemoveFromSelection                 's.Name = "p" & p.Index & "_" & cnt & ".png"                 s.Selected = True                 Set expflt = ActiveDocument.ExportBitmap(dirName & "p" & p.Index & "_" & cnt & ".png", cdrPNG, cdrSelection, , , , 300, 300, , , True, True)                 With expflt                     .Interlaced = True                     .InvertMask = False                     .Finish                 End With                 report = report & vbNewLine & "  - " & "p" & p.Index & "_" & cnt & ".png"                 cnt = cnt + 1             End If         Next s     Next p     MsgBox report End Sub

Dzięki Bunch za podesłanie pliku, zmieniłem podejście do tematu i teraz powinno wszystko działać. Problem w tym, że Corel ma 4 funkcje do eksportu i każda z nich ma inną szybkość działania. Najlepszy był by poprostu zapis zaznaczonej bitmapy, ale to nie zawsze działa. Dlatego w tym makrze wstawiłem trochę wolniejszą, ale pewniejszą funkcję eksportu. Bardzo ważna okazała się prozaiczna linijka p.Activate, bez tego wpisu makro sypało się po przejściu na następną stronę.

Rozdzielczość ustawiona na 300dpi.

Mam nadzieję, że pomogłem.

[Bunch]

Dziękuję za pomoc.
Nadmienię tylko, odnosząc się do tego cytatu, że...

[maroQ]

[nikiel]

dziala super x5
uwagi
- po wprowadzeniu lini docelowej miejsca zakoncz znakiem \
- jak wybierzesz przez przypadek i pojawi sie okienko miejsca juz nie zatrzymasz(warto wybrac wted )


pozdrawiam