Corel FORUM

[elmo]

dzień dobry

to mój pierwszy post na forum - więc nie bijcie za bardzo...

mam pytanie: czy istnieje możliwość zmiany wymiarów identycznych obiektów (np. elips - o takich samych parametrach) ale w taki sposób aby nie zmieniły po tej transformacji swoich położeń???

z góry dziękuję za pomoc
elmo

[tlomiej]

jesli cie dobrze zrozumiałem to wystarczy wpisac nowe wymiary w "górnym pasku"

[elmo]

niestety nie do końca...
chodzi o to że po zaznaczeniu grupy obiektów wpisanie nowych parametrów wymiaru będzie się odnosić do całości zaznaczenia a nie poszczególnych obiektów (co powoduje że zmienia się położenie konkretnych obiektów)...
mi zaś chodzi o zaś o to aby np. w grupie 20 elips zmienić ich wymiary ale bez zmiany ich położenia - oczywiście można to zrobić z każdą oddzielnie ale jest to strasznie pracochłonne...

zatem czy jest jakiś sposób przyśpieszenia tej pracy???

[wawel]

Moze tak:
1. wyszukac w dokumencie te owale o konkretnych parametrach (Edycja- znajdz i zamien - znajdz obiekty i tu wybrac wlasciwe i nast. znajdz wszystkie)
2. zaznaczone obiekty wyciac skrot (ctrl x)
3. Otworzyc nowy dokument i ctrl v (wkleic te owale) - rozgrupowac jesli sa zgrupowane
4. Uzyc tego macro z visual basic - narzedzia Visual Basic - uruchom
macro do uzycia:

Sub Scaleforumcorel()
Dim s As Shape
ActiveDocument.ReferencePoint = cdrCenter
For Each s In ActiveDocument.ActivePage.Shapes
s.Stretch 0.7
Next s
End Sub

parametry skalowania mozna oczywiscie zmienic - te cyfe.

przykladowa skala:

pomniejszanie
0.5 - skala 50%
0.55 - skala 55%
0.7 - skala 70%

powiekszanie
1.5 - skala 150 %
itd

To macro powinno nam przeskalowac hurtem wszystkie obiekty w dokumencie.

5. Zaznaczamy wszystko, kopiujemy i wklejamy do tego pierwszego domumentu.

Jesli tych elementow jest mniej to wystarczy (zamiast tego macro) w nowym dokumencie zmniejszyc jeden owal i nastepnie nacisnac tab (skok do nastepnego obiektu) i kombinacje klawiszy ctrl R (powtorz) i tak powtarzac kilka razy.
pozdr.

[elmo]

dzięki Wawel :)

drugi sposób działa
przy czym, w moim przypadku nie muszę kopiować do nowego dokumentu ponieważ rysuję głównie z zastosowaniem wielu warstw tak więc mogę wykonać tę procedurę w obrębie danego rysunku

pytanie co do pierwszego sposobu - wykonuję ten rysunek w Corelu "9" (może ma to jakiś wpływ) ale po skopiowaniu grupy obiektów do nowego rysunku i... no właśnie nie mogę użyć "narzędzia - visual basic" - ponieważ nie jest on aktywny (podświetlony) zatem skąd należy pobrać owe macro lub w jaki sposób stworzyć je?

dzięki i pozdrawiam

[wawel]

Co do rozwiazania nr 1
Makro nie jest aktywne bo go trzeba zrobic lub zmodyfikowac jakies inne gotowe dostepne w corelu. To makro przygotowalem pod ten problem wiec na liscie makr byc go nie moze.
Wrzucilem w wersji tekstowej tak zeby bylo widac o co tam chodzi i aby mozna bylo zobaczyc gdzie modyfikowac parametr dot. skalowania.

Nie wiem jak w wersji 9 sie to sprawdzi to rozwiazanie ale na 12 to dziala wiec mozna np tak.
sposob 1.
1. Narzedzia -> visual basic -> uruchom i w tym okienku ktore sie pojawi wybrac jakies dostepne z listy rozwijanej na dole macros in. Jesli nie ma tam makr mozna sciagnac dowolne darmowe np. CropMarks.gms np z tej strony www.oberonplace.com/vba/drawmacros/index.htm tam tez jest instrukcja gdzie to zainstalowac.
2. Po wybraniu makra z listy naciskamy z prawej edit
3. Otworzy sie edytor i pod tymi wpisanymi makrami wkleic trzeba ten tekst

Sub Scaleforumcorel()
Dim s As Shape
ActiveDocument.ReferencePoint = cdrCenter
For Each s In ActiveDocument.ActivePage.Shapes
s.Stretch 0.7
Next s
End Sub

4. File -> save macro
5. Wychodzimy z edycji kombinacja klawiszy Alt Q

6. Teraz powinnismy otrzymac na liscie obok roznych innych makr w ramach tego makra - Crop marks jako dodatkowa opcje scaleforumcorel.
7. po jego wskazaniu naciskamy run
8. Macro dziala i skaluje wszystkie elementy teksty, wektory i mapy bitowe - jest wiec uniwersalne.

Jesli ten sposob nie zadziala w wersji 9
mozna sprobowac tak:
1. rysujemy dowolny element np prostokat
2. Narzedzia -> visual basic -> rejstruj
3. powiekszamy ten kwadrat
4. Narzedzia -> visual basic -> zatrzymaj
5. Narzedzia -> visual basic ->uruchom -> edytuj i w miejsce tego zapisanego wpisu wklejamy

Sub Scaleforumcorel()
Dim s As Shape
ActiveDocument.ReferencePoint = cdrCenter
For Each s In ActiveDocument.ActivePage.Shapes
s.Stretch 0.7
Next s
End Sub

teraz wykonujemy kroki tak jak wyzej od pt 4

Gdy chcemy zmienic skale w zapisanym makro przechodzimy do jego edycji i zmieniamy np 0.7 na 0.5 lub dowolna inna wartosc.
Corel pokazuje nam zawsze skale wiec nie ma problemu zeby dobrac do zmniejszonego czy powiekszonego elementu skale bo pokazuje na pasku wlasciwosci skale nawet jesli zmniejszylismy rozmiar w mm.

Narzedzia Visual basic tez byc moze nie sa aktywne bo moze nie bylo pelnej instalacji corela?
pozdr.

[elmo]

wielkie dzięki - działa :)

[wawel]

Wlasciwie skoro masz to na warstwach
to wklejajac ten tekst z jedna modyfikacja

Sub Scaleforumcorel()
Dim s As Shape
ActiveDocument.ReferencePoint = cdrCenter
For Each s In ActiveDocument.ActiveLayer.Shapes
s.Stretch 0.7
Next s
End Sub

to przeskaluje wszystkie elementy w ramach aktywnej (wybranej) warstwy bez wychodzenia do innego dokumentu, i skalowania innych obiektow na nie zaznaczonych warstwach.
pozdr.

[Krasbit]

[Krasbit]

Korzystając z tych makr możesz również kopiować i wklejać inne właściwości miedzy obiektami ( w tym efekty i wypełnienia). Zobacz przykład pod tym adresem:
Copy and Paste properties between objects - the simplest way!