Corel FORUM

[michal.s]

Witam Wszystkich ponownie.
Zwracam się o radę w sprawie jak w temacie.
A mianowicie:
Jak zapisać w makrze, żeby wstawiało prostokąt w formacie strony.
Np. mam stronę 1000/500 mm i wstawia nam prostokąt o takim formacie.
Jeżeli mamy stronę o formacie 1200/800 mm to wstawia prostokąt o formacie 1200/800 mm

Próbowałem nagrać makro, ale działa tylko w takim formacie jak zostało nagrane.
Jeżeli mam inny format strony to wstawi format prostokąta z nagranego makra.

Pomożecie???

[Cysorz]

Kliknij dwa razy w ikonę prostokąta i nie będzie Ci potrzebne żadne makro...

[chezare]

Malutki ma oczywiście rację, ale jak byś chciał makrem, to by było jakoś tak

Sub ramka()
Dim prostokat As Shape
Dim x As Double
Dim y As Double
ActivePage.GetSize x, y
Set prostokat = ActiveLayer.CreateRectangle(0, y, x, 0)
End Sub

[michal.s]

Malutki, dzięki za sugestię
W taki sposób sobie dotychczas radziłem, ale dzięki poradzie chezare mogę kilka czynności połączyć w jeden ciąg. A mianowicie dotychczas importowałem kilka grafik, rozmieszczam je w narożnikach strony, potem wstawiam ramkę, skalowałem i.... trwało to całą wieczność... wybieranie za każdym razem tych samych okien..., plików.... wstawianie ramki strony, skalowanie.... BRRRRRRRRRR...

A tu teraz jeden klik i JABADABADUUU...

BARDZO DZIĘKUJĘ WAM ZA POMOC chezare KOLEJNĄ POMOC )