| |
Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych |
 |
Makra - Private Sub GlobalMacroStorage_DocumentOpen
michal.s - 5 Grudzień 2014, 22:30
Temat postu: Private Sub GlobalMacroStorage_DocumentOpen
Czy jest możliwość przypięcia danego makra tylko do jednego pliku cdr?
Przy zastosowaniu Private Sub GlobalMacroStorage_DocumentOpen(ByVal Doc As Document, ByVal FileName As String) makro pięknie się odpala, tylko że jest znów małe ale... (chyba zmienię nick  ) wyskakuje błąd przy każdym otwieranym dokumencie, a mało tego zaczyna uruchamiać się kolejne makro... i wywala błąd.
| Cytat: | ...Jeśli eksperyment przebiegł pomyślnie, to zrób tak jak napisał Martin Nez,
| Cytat: | Private Sub GlobalMacroStorage_DocumentOpen(ByVal Doc As Document, ByVal FileName As String)
Dim data As Date
data = Date
ActiveLayer.FindShape("Data").Text.Story.Text = data
End Sub |
żeby to zadziałało przy otwieraniu każdego dokumentu funkcja musi mieć specjalną nazwę i zapisana tam gdzie kolega napisał.
Nie wydaje mi się konieczne deklarowanie zmiennej pod którą podstawia się date a następnie tą zmienną wstawia się do polecenia zmieniającego tekst.
Wystarczy jak wewnątrz procedury będzie:
Kod:
On Error GoTo omin
ActiveLayer.FindShape("datownik").Text.Story.Text = Date
omin:
Sekwencja:
Kod:
on error goto etykieta
...
etykieta: |
Temat już wcześniej był poruszany z tym że nie został do końca wyjaśniony.
http://corel.wodip.opole....opic.php?t=5321
|
|