☰

» »

word makro

word makro

gumby ::

v wordu bi rad naredil en gumb v toolbarju, ki bi se obnasal kot stikalo (toggle) in bi preklapljal nek status med true in false.
ta status bi potem prebral ob aktivaciji makroja (ki sicer nima nobene veze z gumbom) in ustrezno ukrepal naprej... kako naredit tak gumb?
my brain hurts

gumby ::

*bump*

kje ste zdaj, mojstri za visualbasic? :)
my brain hurts

ql000 ::

Ko imaš makro posnet mu lahko prirediš gumb. V Help si pogledal? :\

gumby ::

to vem, saj imam mali milion custom toolbarjev ze narejenih...

problem je, ker bi jih rabil se enkrat toliko (in prav toliko makrojev se zraven), ki bi naredili nekaj zelo podobnega, kot obstojeci makroji

zato bi rad imel en "master" gumb, ki bi v bistvu dolocil katera skupina makrojev se zalaufa (oz. gre se samo za en parameter v call funkcijah v makroju)
my brain hurts

StratOS ::

Evo ti primera :)

Macro security na low, ne vsebuje kake black code :)
Nekaj na hitro :)

Global Test As Boolean
Sub DoIt()

'
Test = Not (Test)

If Test = False Then
CommandBars("Test").Controls(2).Visible = True
CommandBars("Test").Controls(3).Visible = True
Else
CommandBars("Test").Controls(2).Visible = False
CommandBars("Test").Controls(3).Visible = False
End If
End Sub


Sub Mssg()
MsgBox "Pje si faca!", vbCritical, "Heh"
End Sub


Sub Inserttt()
Selection.TypeParagraph
Selection.TypeText Text:=Format(Date, "dd,dddd.mmmm.yyyy") & " " & Format(Time, "hh:mm:ss")
Selection.TypeParagraph
Selection.TypeText Text:="Hudo hudo!"
Selection.TypeText Text:="Boris"
End Sub
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."

Zgodovina sprememb…

  • spremenila: StratOS ()

gumby ::

aha... gumb naredis "pes", nato se pa igras z njim preko makrojev
to sem rabil, hvala :)
my brain hurts

gumby ::

se en problem imam...
ko prvic zalaufam word mi kaze stanje gumba narobe (stanje je false, kaze pa true)

     Global Test As Boolean
Sub DoIt()
    Test = Not (Test)
    If Test = False Then
      CommandBars("Test1").Controls(1).Caption = "T=0"
      CommandBars("Test1").Controls(1).State = msoButtonUp
    Else
      CommandBars("Test1").Controls(1).Caption = "T=1"
      CommandBars("Test1").Controls(1).State = msoButtonDown
    End If
End Sub


test=false na zacetku tudi ne pomaga, ker potem sploh ne morem vec spreminjati vrednosti...
a se mogoce kaksen sub izvede samo enkrat ob zagonu, da bi tja tole vstavil?
my brain hurts

StratOS ::

yup Document_New, open in Close


lp
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."

gumby ::

tnx, kaj bi jaz brez tebe:)
my brain hurts

Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

vb.net: zapri vse tabcontrole

Oddelek: Programiranje		7744 (637) klemenSLO
»

[VB6] Program Odštevalnik - verjetno preprosta rešitev ampak jest je ne najdem (strani: 1 2 )

Oddelek: Programiranje		515241 (4715) Nerdor
»

VB6 kako uporabiti

Oddelek: Programiranje		8965 (827) Area_51
»

VB in kk dobit Ip od račnalnika

Oddelek: Programiranje		81199 (1033) alesrosina
»

Visual basic Progress bar

Oddelek: Programiranje		51558 (1491) Lunik

Več podobnih tem