Typ proměnné

[Martass]

Ahoj!
Chci se zeptat pro Vás na úplnou hloupost,ale neumím s tím pohnout.Jak deklarovat proměnnou pro název prvku Label.Je to Pro VBA Excel.Snad jsem to popsal srozumitelně.Proměnnou "prvek" chci používat i v jiných procedurách,ale zatím mi to nejde ani v jedné!!
Díky

Kód: Vybrat vše

Private Sub Label60_Click()
Dim prvek As String ???

prvek = Label60.Name
With prvek
.BackColor = &HFFFF00
.Height = 27
.Width = 48
.Font.Size = 14
.Top = 5
End With
End sub

[Reklama]

[d1amond]

Opačně.

Kód: Vybrat vše

prvek = "Nějaký název"

Label60.Name = prvek

V Tvém zápisu chceš, aby se do proměnné prvek uložila hodnota Label60.Name. Dále chceš pracovat s Label60
takže

Kód: Vybrat vše

With label60
.width =
...
End With


[Martass]

Ano,potřebuji uložit název prvku "Label60" do proměnné,kterou budu používat i v jiných procedurách a odkazovat se na tento prvek a pracovat s ním dále.Omlouvám se,ale mohl bys to prosímtě rozepsat konkrétně na uvedném příkladu nějak mi to hlava nepobrala

Potřebuji se odkazovat na tuto proměnnou (prvek) i v dalších procedurách,nevím jestli zrovna Label60.Name je to správné uložení do proměnné. Resp.více prvku Label se bude postupně odkazovat na určitou proceduru kde se bude přiřazovat název toho určitého "Labelu".snad to popisuji alespoň trochu srozumitelně?

[d1amond]

Už jsem to pochopil, ale i tak mi nedává smysl, proč chceš uložit Label do nějaké proměnné, když se můžeš odkázat na příslušný objekt jeho názvem "Label1" (a i ten lze měnit)

Kód: Vybrat vše

Sub pokus()
Dim prvek As Label

Set prvek = UserForm1.Label1


With prvek
.Width = 45

End With


End Sub

[Martass]

Ani to pořád nejde Set prvek = ..... se to kousne "type mismatch"
Teď musím odejít.Pokračování později. Zatím děkuji

[d1amond]

Má chyba

Kód: Vybrat vše

Dim prvek as Object

[Martass]

Jo,jo to je ono.Zkoušel jsem to všemi možnými způsoby,ale buďto mi tam chybělo Set když jsem dal Set,tak jsem měl nejspíš zase špatně deklarovalnou proměnnou na Object měl jsem asi String atd...Konečně je to tak,jak má být.Děkuji Martin