Corel FORUM

[maslo]

Dzięki wielki
jak mógbys mi jeszcze podpowiedzieć jak "włączyć" pogrubienie

to nie działa :)
p.ActiveLayer.Shapes(1).Bold = True

[wawel]

p.ActiveLayer.Shapes(1). give me 1000$ = True
to tez mi nie dziala (maly zart )


Tak jak tam pisalem wczesniej, mozna modyfikowac font, kolory itd przez przypisanie stylu.

p.ActiveLayer.Shapes(3).ApplyStyle "abc"

gdzie abc to nazwa stylu ktory wczesniej definiujesz... wczesniej to opisalem.
Jesli dla tekstu styl bedzie mial zdef. bold to powinno zadzilac.

pozdr.

[maslo]

Kłania się umiejętność czytania ze zrozumieniem.
Wczoraj byłem jut trochę zmęczony.

Rozwiązałem to łopatologicznie
p.ActiveLayer.Shapes(2).Outline.SetProperties 0.0085

Dzięki wielkie za pomoc!
Powiedział bym, że masz u mnie browar, ale odbiór we własnym zakresie.
Pozdrawiam

[Martin Nez]

Witam,

Kod:

Sub PogrubienieTekstu()     If ActiveSelection.Shapes.Count = 0 Then         MsgBox "Zaznacz obiekt.", vbOKOnly         Exit Sub     End If     If ActiveShape.Type = cdrTextShape Then         ActiveShape.Text.Story.Bold = True     Else         MsgBox ("Blad! Zaznaczony obiekt nie jest tekstem.")     End If End Sub

Pozdrawiam,
MN

[123Jerusalem]

Witam serdecznie,

Mam kłopot z zaimportowaniem danych do stworzonych poprzez Thumbnailera stron ze zdjęciami. Tło sobie ustawiłem, fotki ładnie weszły na kolejne strony... i zaciąłem się na wstawianiu danych na kolejne identyfikatory. Dane mam z pliku Excel, (imię, nazwisko, funkcja, jednostka, numer pracownika).Próbowałem to wstawiać poprzez wydruk seryjny, ale bez efektu (Corel się wiesza). Czy ktoś (wawel?) może mi podpowiedzieć, jak to zrobić za pomocą makra - ustawić pola tekstowe w pożądanych miejscach, wskazać miejsce pobierania danych i zaimportować kolejne dane personalne na kolejne identyfikatory? Męczę się z tym już ładnych parę dni, i nic.....Help!!

PS. Mój Corel to 12.

[wawel]

Uzyj makra z tej strony. (link na dole) Dane z arkusza kalkulacyjnego zamien na takie jakie sa wymagane w tym makro. To bodaj plik tekstowy jest, a dane maja byc rozdzielone tabulatorem. Z arkusza kalk. mozna eksportowac tak aby dane byly rozdzielone na rozne sposoby w pliku tekstowym.
Przy eksporcie wybierasz separator pola - tab

link do makra
http://macromonster.com/i...rcode&Submit=Go

[123Jerusalem]

[wawel]

Zrob na piechote, okolo 100 to nie jest duzo.

Nie dokonca wiem ost. gdzie jest problem.
Wyzej opisana metoda (w watku) dziala do zdjec w ktorych nazwie sa umieszczone te dane.
Ty uzywasz bazy danych wiec ta metoda nie zadziala - chyba ze to makro za 50$.
Napewno mozna bez specjalnych zabiegow umiescic te dane po wczesniejszej konwersji do txt jako wydruk probny tylko ze bez zdjec. Corel 12 ma jakis problem z plikami xls. Nie pamietam tylko czy to byl problem z importem czy z zawieszeniem progr.

pozdr.

[popper]

Panowie a czy moge w jakiś sposób automatycznie dopasowywać rozmiar czcionki do pola tekstowego w wydruku seryjnym ?