Matjazev.NET

Najlepša hvala.
Joj, kdaj pa znam po nepotrebnem komplicirat.

Lep pozdrav
Drago

Pozdravljeni. Potrebno širino oblike ugotavljam tako, da vsebino prenesem v testno celico , tej določim avtomatsko določanje širine in le-to uporabim za določanje širine gradnika. cTxt = Worksheets(pList).Shapes(pImeObl).TextFrame2.TextRange.Characters.Text ' Izločim besedilo Worksheets("Test").Colu...

Pozdravljeni Spet rabim pomoč. Na listu imam različne oblike s katerimi zaganjam posamezne makre (OnAction). Ko sem tem oblikam dodal še namig (ScreenTip) se makro ne zažene več. With Worksheets(cList).Shapes.AddShape(nTipPuscice, _ nPLeft, _ nPtop, _ nPWidth, _ nPHeight) .Name = cPImeObl .Fill.Fore...

Pozdravljeni Vrednost spremenljivke je pravilna. Sem pa imel zaščiten list. Ko sem pred ukazom ZOrder preklical zaščito, pa deluje. Zanimivo pa je, da pri ukazu ZOrder, ki se zaradi zaščite ni izvedel, ni bilo napake kot npr. pri poskusu spremembe vrednosti zaščitene celice. Nekaj podobnega se mi je...

Pozdravljeni Na list rišem veliko število oblik (rodovnik - predniki) s podatki in povezavami. Postopek večkrat ponovim, glede na izbrano osebo. Imam pa na listu tudi kvadrat, v katerem je napisano navodilo. Skrijem ga tako, da ga pozicioniram daleč desno. Pri zahtevi "Navodilo" ga premaknem v vidni...

Pozdravljeni Na listu imam več vnosnih polj za vnos kriterijev za pripravo poročila in gumb "Poročilo". Pri dogodku "Worksheet_Change" izvedem kontrolo vpisanega kriterija. Pri dogodku "Poročilo_Klikni" pa izvedem proceduro, ki pripravi poročilo. Težava nastopi, če po vpisu zadnjega kriterija takoj ...

Pozdravljeni Tiskal bi rodovnik, ki je velik 5 listov A0, lahko pa še več. Sosed, tiskar mi lahko iz PDF datoteke natisne na rolo-brezkončni papir širine do 150 cm. Uporabljam CutePDF Writer. Ali obstaja možnost s tem ali katerim drugim PDF Writer-jem izbira formata "brezkončno" določene širine. Če ...

Najlepša hvala.

Druga rešitev je prava. Dopolniti sem moral samo par vrstic. Že deluje.

ps.
Sam sem že razmišljal o prvi rešitvi, pa je vaš predlog veliko boljši.
Nisem pa vedel, da pri "OnAction" lahko vključim tudi parameter.
Lepo je imeti tako pomoč. Hvala

Lep pozdrav
Drago

Na list narišem obliko - puščico in jo imenujem npr: PrOseba_0102010101020101020101010101_Gor Struktura imena pove pozicijo v strukturi rodovnega drevesa in jo rabim za identifikacijo osebe. ' Puščica GOR - Pregled družine - Član If InStr(pKlic, "G") > 0 Then ' Če se zahteva puščica GOR nPtop = nShT...

Pozdravljeni V VBA sestavim list z več 100 oblikami ( kvadrati - rišem rodovnik ). Imena so govoreča in precej dolga. Pri dogodku " .OnAction " s funkcijo Application.Caller ugotavljam ime gradnika. Težava pa nastopi, ker funkcija pri daljših imenih vrne samo prvih 30 znakov imena. Je možno to omeji...

Pozdravljeni V proceduri setavim večdimenzionalni array, ki ima od nekaj 10 do nekaj sto zapisov. Ali obstaja funkcija za sort arraya? ps. Za silo sem težavo rešil tako, da ključe in index zapisov arraya zapišen na list, sortiram in potem obdelujem aray po po indexih. Lahko sicer napišem funcijo za ...

Hvala.
Sem že instaliral. Kako enostavno (ko enkrat veš).
ps.
Printerja seveda nimam ustreznega. Vedar upam, da bom s PDF datoteko našal nekoga, ki ima opremo. Nekaj sem že zasledil na spletu.

Še enkrat hvala. Drago

Pozdravljeni V excelu sem z uporabo oblik (kvadrati s podatki osebe in povezovalne črte) narisal rodovnik. Problem je pa izpis. Pomanjševanje ima svoje meje zaradi čitljivosti. Zanima me, če obstaja kak način izpisa v PDF datoteko na večji format - A0 ali Po meri. Na netu sem našel navodilo, kako po...

Pozdravljen
Vprašaj se: If list.Name = "NovList" Then ...

Lep pozdrav,
Drago

Očitno sem preveč kompliciral z opisom. Enostavno želim vedeti, kdo je zvezek odprl. To me zanima samo, če je zvezek odprt iz VBA kode. Sem pa našel posredno rešitev: Application.StatusBar = "Odprl Administrator" ' Indikacija, kdo odpira VZOREC Set WB = Workbooks.Open(cMapa & "/VZOREC.xlsm") ' Odpre...