Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Problem z labelem
anonim




Typ: Nie zarejestrowany
Problem z labelem

W jaki sposób programowo wstawić bezpośrednio do arkusza Label1 a następnie zmienić jego Caption na "Etykieta1".Gdy chcę zmienić wartość Caption wywala mi że nie obsługuje tej metody.Chyba chodzi o to że jest w trybie projektowania, a ja nie wiem jak z niego wyjść.

06-09-2004 13:28
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

A jak Ci pomóc? Gdzie jest kod, w wyniku którego wyświetla Ci komunikat o błędzie?


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

06-09-2004 17:40
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
anonim




Typ: Nie zarejestrowany

oto kod:   

ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, DisplayAsIcon:=False, Left:=20, Top:=20, Width:=20, Height:=20).Select

ActiveSheet.Label1.Caption = "Etykieta1"

Jeżeli podzielę kod na dwa makra to działa a w jenym nie chce.

07-09-2004 07:37
  
Piotr T




Typ: neutral
Postów: 176
Zarejestrowany: May 2004

To działa tylko na poziomie formularza
Sub Dodaj_LABEL()
Dim S, K
S = Selection.Row
K = Selection.Column
    ActiveSheet.Labels.Add(284.25, 64.5, 130.5, 20.25).Select
    Selection.Characters.Text = "Tralala"
    Cells(S, K).Select
End Sub


Niestety z kontrolką z zasobnika MSForms będziesz miał kłopoty z jej zmianami bez użycia Control Toolbox, gdyż kontrolka ma w swoim kodzie już wpisane instrukcje Get i Set, które tylko można ustawić za pomocą Control Toolbox

[Post edytowany dnia 07-09-2004 18:46 przez Piotr T]


_____________________________________________
Visual Basic.NET - Mercedes dla programistów

07-09-2004 18:01
Pokaż profil Piotr T  Wyślij email do Piotr T   Odwiedź stronę Piotr T  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Piotrze, masz rację, ale to zależy od kontekstu, w którym ma być użyty kod.


anonim
A czemu używasz obiketu OLE, jak możesz użyć "prostego" label'a?

Sub Makro2()
Dim lbl As Label

Set lbl = ActiveSheet.Labels.Add(10, 10, 50, 25)
With lbl
    .Text = "Coś tam"
    .Visible = True
End With
Set lbl = Nothing

End Sub



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

07-09-2004 18:42
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Piotr T




Typ: neutral
Postów: 176
Zarejestrowany: May 2004

No właśnie zacząłem poprawiać swoją odpowiedź i wsumie wpadliśmy na ten sam pomysł

To działa tylko na poziomie formularza
Sub Dodaj_LABEL()
Dim S, K
S = Selection.Row
K = Selection.Column
    ActiveSheet.Labels.Add(284.25, 64.5, 130.5, 20.25).Select
    Selection.Characters.Text = "Tralala"
    Cells(S, K).Select
End Sub


Niestety z kontrolką z zasobnika MSForms będziesz miał kłopoty z jej zmianami bez użycia Control Toolbox, gdyż kontrolka ma w swoim kodzie już wpisane instrukcje Get i Set, które tylko można ustawić za pomocą Control Toolbox



_____________________________________________
Visual Basic.NET - Mercedes dla programistów

07-09-2004 18:48
Pokaż profil Piotr T  Wyślij email do Piotr T   Odwiedź stronę Piotr T  
anonim




Typ: Nie zarejestrowany

Bardzo dziękuję za wasze podpowiedzi i uwagi.
Miło mi że chciała pomóc mi więcej niż jedna osoba.
Skorzystałem z waszego rozwiązania i wszystko jest ok.
Jeszcze raz WIELKIE DZIĘKI.
NARA

08-09-2004 08:11
  
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1