Corel FORUM

[beblock]

Witam Was zapewne powtarzam temat , ale.............

ma projekt 13 stron, jak "zakrzywić" wszystkie fonty jednym kliknięciem :) ? (nie edytując poszczególnych stron)

pozdrawiam

[miszcz301]

Edycja --> zaznacz wszystko --> tekst

Rozmieszczeni --> przekształć w krzywe

[beblock]

TO JEST JAK NAJBARDZIEJ OK ALE ZAKRZYWIA TYLKO I WYŁĄCZNIE FONTY NA OTWARTEJ KARCIE ?!

[wawel]

Uzyj tego:


Sub curve()
Dim s As Shape
Dim how As Integer
Dim page As Integer
page = ActiveDocument.Pages.Count
For how = 1 To page
For Each s In ActiveDocument.Pages(how).FindShapes(cdrShape)
s.CreateSelection
ActiveSelection.ConvertToCurves
Next s
Next how
End Sub


lub tego jesli chcesz zakrzywic jeden konkretny font

Tam gdzie Arial wpisujesz nazwe czcionki.

Sub curvesonefont()
Dim s As Shape
Dim how As Integer
Dim page As Integer
page = ActiveDocument.Pages.Count
For how = 1 To page
For Each s In ActiveDocument.Pages(how).FindShapes(, cdrTextShape)
If s.Text.Story.Font = "Arial" Then
s.CreateSelection
ActiveSelection.ConvertToCurves
End If
Next s
Next how
End Sub

[beblock]

No WAWEL tera to mi dałeś heheh

fajnie wygląda.... kołata mi się po głowie co mogę z tym zrobić, ale wolę
abyś mi pomógł opisz proszę co i jak

- dzięki

[wawel]

to sa makra ktore trzeba wrzucic w wlasciwe miejsce a potem je uruchomic jedno bedzie mialo nazwe curve a drugie curvesonefont, nazwy mozesz sobie zmienic wpisujac dowolna nazwe w miejsce tych slow.
Mozna tez przypisac przycisk dla tych polecen i wyciagnac na pasek, ale to juz tu kiedys opisywalem.

Makro mozna dokleic do jakiegos innego i bedzie sie pokazywac i tak pod swoja nazwa.

Narzedzia - visual basic - uruchom - macros in - all standard projects
wybierasz jakies gotowe dajesz edit i wklejasz powinno zostac odkreslone od poprzedzajacego linia zamykasz okno alt q i potem juz tylko uruchamiasz. Narzedzia - visual basic - uruchom - run

[beblock]

Wiedziałem,

że uzyskam pomoc, świetne makro

wielkie dziękuje & pozdrawiam

- temat zamknięty- :)