Corel FORUM

[discovery]

Jakim poleceniem makro, Koledzy, umieścić obiekt w górnym prawym rogu ?
chodzi oto że muszę umieścić dwa kwadraty o wymiarze 1x1mm, jeden w dolnym lewym rogu
(to akurat automat makro załatwi bo wystarczy mu wpisać współrzędne 0/0),

ale nie mam pojęcia jak drugi kwadrat w górnym prawym rogu... a strona za każdym razem ma inne wymiary
pozdrawiam :) .

[tomek123]

Kod:

Public Sub Set_markers() Dim x As Double, y As Double, s1 As Shape, s2 As Shape With ActiveDocument     .Unit = cdrMillimeter     .ActivePage.GetSize x, y     Set s1 = .ActiveLayer.CreateRectangle(0, 1, 1, 0)     Set s2 = .ActiveLayer.CreateRectangle(x - 1, y, x, y - 1) End With End Sub

[Cysorz]

Zaznaczyć najpierw obiekt który chcemy przemieścić a później docelowy (z wciśniętym "Shift") i wcisnąć na klawiaturze "T" (top) i "R" (right). A ten pierwszy przy użyciu klawiszy "B" (bottom) i "L" (left) nie prościej?

Można też myszką przy włączonym dociąganiu do obiektów...

Aha - jeszcze jedno. Prostokąt dopasowany idealnie do wymiarów strony (czyli ten docelowy) uzyskujemy klikając dwa razy w ikonę prostokąta na belce narzędziowej.

[discovery]

Ha... prawie super :) Przepraszam was Koledzy ale okazało się że nie dodałem b. ważnej informacji, a mianowicie ŚRODKI tych kwadracików muszą być jeden o współrzędnych 0x0 a drugi w górnym prawym rogu... oczywiście ten drugi kwadracik też swoim środkiem na krańcowych współrzędnych.

a jeśli nie nadużyję waszej cierpliwości to do tego jeszcze chciałbym poprosić o to aby na końcu zrobił się duży prostokąt, tzn o wymiarach strony, ale pomniejszony o 6 mm na wysokości i szerokości.

czyli jeśli mamy stronę o wymiarach 20x30 cm to są trzy kwadraty dwa malutkie (1x1 mm) ze środkami na krańcach strony (Dolny lewy i Górny prawy) o raz prostokąt (na środku strony) o wymiarach 19,4x29,4 cm.
i adekwatnie jeśli strona ma rozmiar 13,6x 20,6cm to trzeci prostokąt będzie miał wymiary 13x20 cm.


pozdrawiam i dziękuję za dotychczas :)

[tomek123]

Kod:

Public Sub Set_markers() Dim x As Double, y As Double, s1 As Shape, s2 As Shape, s3 As Shape, r As Double, m As Double r = 0.5 m = 3 With ActiveDocument     .Unit = cdrMillimeter     .ActivePage.GetSize x, y     Set s1 = .ActiveLayer.CreateRectangle(-r, r, r, -r)     Set s2 = .ActiveLayer.CreateRectangle(x - r, y + r, x + r, y - r)     Set s3 = .ActiveLayer.CreateRectangle(m, y - m, x - m, m) End With End Sub

[discovery]

Tomek123... jesteś wielki :) Bardzo dziękuję.
jest jeden malutki błąd ale to już sobie sam poprawiłem, a mianowicie duży kwadrat miał być pomniejszony o 6 mm a nie 0,6 wiec m=3. :)

jeszcze raz bardzo bardzo dziękuje :)
jest jakaś przystępna literatura na ten temat tzn VB dla corela?
pozdrawiam

[tomek123]

Polecam
"Excel Makrodefinicje" HELION Steven Roman
http://helion.pl/ksiazki/...oman,excema.htm
VBA pod Excela -> dobry opis - jak to generalnie funkcjonuje - choć tylko podstawy strukturalne, nie znajdziesz tam elementów programowania obiektowego, tworzenia kolekcji i opisu operowania na tablicach, ale świetne dla początkujących, żeby samodzielnie stworzyć jakieś przydatne makro do swoich potrzeb.
Do VBA pod Corela niestety nie znam książki, zostaje internet i to głównie strony anglojęzyczne, ale wystarczy dość przejrzysty model obiektowy Corela:
http://www.oberonplace.com/vba/draw10vba.htm
na polskich nie znalazłem zbyt wiele, jedynym miejscem jest to forum...
Może ktoś zna? ja nie znalazłem polskiej literatury konkretnie z opisem VBA do zastosowania w Corelu, a przydałaby się taka wiedza w pigule, chętnie bym kupił...