Corel FORUM

[indus]

Witam, szukam pomocy przy napisaniu makra dla CorelDraw x3, które albo będzie zmieniało rozdzielczość zaznaczonej bitmapy w otwartym dokumencie na 300 dpi.

Próbowałem stworzyć makro za pomocą rejestracji makr i powstał taki oto twór

Kod:

Sub r300dpi()     Dim OrigSelection As ShapeRange     Set OrigSelection = ActiveSelectionRange     OrigSelection(1).Bitmap.Resample 235, 496, True, 300, 300 End Sub

z tym że w tym przypadku każdy obiekt, który za pomocą tego makra zmodyfikuję będzie miał rozmiar 235, 496. W związku z tym proszę o poradę w jaki sposób zmodyfikować makro aby zmieniało tylko rozdzielczość zachowując obecny rozmiar.

Drugie pytanie jest takie czy można stworzyć takie makro, które zmieni rozdzielczość wszystkich bitmap w całym dokumencie na rozdzielczość 300dpi ?

[maroQ]

do moderacji: Nie znalazłem w regulaminie wzmianki o tym, że odświeżanie tematów jest zabronione. Ponieważ mam odpowiedź na zadane pytanie więc mimo iż temat dawno już wygasł to może treść komuś się jeszcze przyda.

[kula69]

maroQ witaj
A potrafiłbyś przerobić makro kalendarza tak by każdemu dniu można było przypisać imieniny nie jako święto ale normalnie?

[chezare]

MaroQ, Indus chciał wszystkie bitmapy, a nie tylko zaznaczoną.
Dla jednej bitmapy, mechanizm programu jest szybszy niż uruchamianie makra :)

[maroQ]

[chezare]

maroQ, ja doskonale wiem jak wyciągnąć skrót do makra na pasek, wiem też jak napisać makro, które zmieni rozdzielczość wszystkich obrazków w dokumencie. Tobie zajmie to 2 min. mnie znacznie dłużej, bo się makrami dawno, a w Corelu praktycznie nigdy, nie bawiłem. Tak na marginesie, gdyby autor postu zadał sobie trud żeby poczytać trochę help, to sam by znalazł rozwiązanie, bo widać, że dobrze kombinuje :)

Pozdrawiam
Czarek

[Martin Nez]

A gdyby zrobić tak...

Kod:

Sub rozdzielczosc()     Dim rozdzielczosc As Integer     rozdzielczosc = InputBox("Podaj rozdzielczość dla bitmap w dokumencie:")     Optimization = True     For strona = 1 To ActiveDocument.Pages.Count         For warstwa = 1 To ActiveDocument.Pages(strona).Layers.Count             For obiekt = 1 To ActiveDocument.Pages(strona).Layers(warstwa).Shapes.Count                 If ActiveDocument.Pages(strona).Layers(warstwa).Shapes(obiekt).Type = cdrBitmapShape Then                     ActiveDocument.Pages(strona).Layers(warstwa).Shapes(obiekt).Bitmap.Resample , , True, rozdzielczosc, rozdzielczosc                 End If             Next         Next     Next     Optimization = False     ActiveWindow.Refresh     MsgBox ("Zmienianie rozdzielczości zakończone.") End Sub

...to zmieniło by wszystko. :-)

maroQ podaj link do strony... Chętnie obejrzę inne Twoje "komercyjne" skrypty. :-)
Aaa... I tak na marginesie... Istnieje możliwość podglądu wiadomości na tym forum. :-)

[chezare]

To może jeszcze trochę krócej :)

Kod:

Sub To300() Dim s As Shape Optimization = True For st = 1 To ActiveDocument.Pages.Count     ActiveDocument.Pages(st).Activate         For Each s In ActivePage.Shapes             If s.Type = cdrBitmapShape Then             s.Bitmap.Resample , , True, 300, 300             End If         Next s Next st Optimization = False Robta_co_chceta = True ActiveWindow.Refresh MsgBox ("Chyba się pozmieniało :)") End Sub

Albo od razu do CMYK :)

Kod:

Sub To300CMYK() Dim s As Shape Optimization = True For st = 1 To ActiveDocument.Pages.Count     ActiveDocument.Pages(st).Activate         For Each s In ActivePage.Shapes             If s.Type = cdrBitmapShape Then             s.ConvertToBitmapEx cdrCMYKColorImage, False, True, 300             End If         Next s Next st Optimization = False ActiveWindow.Refresh MsgBox ("Chyba się pozmieniało :)") End Sub

Najlepiej jednak posługiwać się kreską, której żadna rozdzielczość się nie ima :)

[maroQ]

[chezare]

Może się mylę, może źle zrozumiałem, ale do obliczeń, o które tak dbasz żeby nie trafiły "pod strzechy" jest mnóstwo gotowych skryptów. Skryptów, bo makra w takich programach jak Corel czy Excel są pisane w języku skryptowym, który działa dzięki wbudowanemu w program interpretatorowi. Nie podważam Twoich umiejętności, sam jestem w dziedzinie pisania skryptów czy jak wolisz makr dla Corela, amatorem, szlak mnie jednak trafia jak ktoś za napisanie paru wyrazów od razu chce pieniędzy, to nie ten dział i nie to forum. Pomijam fakt, że Twój kod jest daleki od doskonałości, co dostrzega nawet taki laik jak ja.

[Martin Nez]

Faktycznie, wystarczy sprawdzać obiekty na stronie, a nie na każdej warstwie osobno. :-) Nie zwróciłem na to uwagi. Dzięki za hinta chezare.
Hmm... MaroQ, dlaczego uważasz, że się śmiejemy z Twojego kodu? Jest ok. A po dodaniu kilku pętli nawet może się komuś przydać... Ja w tym nie widzę powodu do śmiechu. ;-) Bardziej rozśmieszyło mnie to:

Cytat:

Tyle że za darmo to mi się tego nie chce pisać :P

Pobierać kasę za dodanie kilku for'ów? ;-P Trzeba było wstawić post o napisaniu kodu za kasę i dopiero później go publikować. :-)
Btw. jeśli chcesz mogę do Ciebie podesłać kogoś potrzebującego makro ( ;-) ) do nestingu. Ja się poddałem po kilku dniach pisania kodu...
Pozdr,
MN

[maroQ]

[chezare]

Brałem pieniądze za pisanie programów przez kilkanaście lat i to w czasach kiedy nie było jeszcze tych wszystkich visual coś tam. Nie było internetu, nie było książek i nie za bardzo było się od kogo uczyć. Gdybym wtedy spotkał takiego szamana informatyki jak ty, to pewnie do niczego bym nie doszedł? Dlatego jak ktoś o coś pyta, to staram się pomóc nie wnikając czy ma to mu pomóc zarobić pieniądze czy tylko zaliczyć w szkole. Zawsze znajdzie się ktoś kto odpowie i pomoże. Ja się nie boję tego, że pomagam np. konkurencji, dla każdego znajdzie się miejsce, jak się nie uda w jednej dziedzinie, to uda się w innej. Rozumiem, że ktoś zgłasza się z jakimś poważnym tematem, ktoś taki raczej nie liczy, że ktoś zrobi robotę za darmo, w tym przypadku tak nie było. Na tym forum, większość to jednak amatorzy, którzy nie zabiorą ci chleba. Nie wiem jak piszesz te programy, ale mnie w życiu do głowy by nie przyszło żeby mając do rozwiązania jakiś problem matematyczny zapisywać się od razu na uniwersytet. Jak do mnie przychodziła pani inżynier i prosiła o napisanie procedury, która miała liczyć dajmy na to wielomian n-tego stopnia, to ja mówiłem, pani Zosiu, jak mi pani napisze na kartce jak to się liczy, to ja przetłumaczę to na język zrozumiały dla maszyny i pani taką procedurę napiszę.
Udawanie szamana w XXI w, w środku Europy jest odrobinę śmieszne.

[kula69]

maroQ, witam
dziękuje znalazłszy w sieci to co potrzebowałem:), ale w przyszłości - kto wie:)

[maroQ]

[chezare]

MaroQ, na początku miałeś do mnie pretensje o to, że niedokładnie przeczytałeś post autora tematu i wygłupiłeś się z prawami autorskimi do trzech linijek kodu. Gdyby to był jakiś nowy patent na rozwiązanie tego zadania, to bym rozumiał, ale nie był, a podobne rozwiązanie jak by trochę poszukać, pewnie by się znalazło w helpie Corela. To samo dotyczy tego mojego kodu i kodu Martina Nez. Fakt, trochę sobie z Ciebie pożartowaliśmy, jeśli Cię to dotknęło, to przepraszam. Zauważ jednak, że wcześniej napisałem, że rozwiązanie tego zadania Tobie zajmie 2 min, a mnie znacznie więcej, to chyba nie jest dowód na to, że lekceważyłem Twoje umiejętności. Jak to pisałem, to jeśli chodzi o mnie, to bardziej kierowała mną wiara w to, że potrafię to zrobić, niż wiedza. Dawno temu napisałem parę makr dla Excela, dla Corela nie pisałem nigdy. Problem nie leży w wykonaniu jakichś matematycznych obliczeń, czy w komunikacji z systemem operacyjnym, w Excelu, Wordzie czy Corelu wygląda to identycznie, problem jest w tym że każdy z tych programów zawiera specyficzne dla siebie składniki. Jak nie wiesz jak się nazywają, jak się do nich odwołać, to co najwyżej wyświetlisz "Hello Word". Proponuję zakończyć tę wojnę, która nikomu żadnego pożytku nie przynosi i zapalić fajkę pokoju. Ja w każdym razie zamierzam tak zrobić.
Pozdrawiam

[Martin Nez]

Tak długie te posty, że nawet czytać się ich nie chce... ;-P
Hmm... Swoją drogą znacie może jakieś strony/fora ze skryptami/makrami do Corela? Nie chodzi mi oczywiście o Oberon's Place, MacroMonster etc, bo to zna każdy... :-)

Pozdr,
MN

[chezare]

Leniwy jesteś :) Piszę gdzieś tak około 300 znaków na minutę, dla mnie to chwila :)

[Martin Nez]

Próbuję, próbuję i nie mogę nadążyć z liczeniem... ;-) Więc chyba nieźle jest. ;-D