Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Osadzanie programowe
anonim




Typ: Nie zarejestrowany
Osadzanie programowe

Cześć VBA maniacy !!!!!!
W jaki sposób można bespośrednio do arkusza wstawić i osadzić pole textowe lub przycisk stosując jedynie kod tak aby można było odrazu zrobić aktywnym pole textowe.
wygląd kodu :
wsawienie przycisku
osadzenie przycisku
wstawienie polatextowego
osadzenie polatextowego
zrobienie aktywnym polatextowego
koniec kodu

01-12-2004 14:37
  
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Na przykład tak:
Sub wstawKontrolki()
With ThisWorkbook.Sheets(1)
    With .Buttons.Add(50, 74.25, 57, 24.75)
    ' With .Buttons(.Buttons.Count)
        .Name = "KaroButt"
        .Caption = "Cześć"
    End With
''' albo tak
    .TextBoxes.Add(200, 74.25, 57, 24.75).Select
    With .TextBoxes(.TextBoxes.Count)
        .Name = "KaroTxt"
        .Text = "Dzień dobry"
    End With
    Dim oCmd As Object
    Set oCmd = .OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
            , DisplayAsIcon:=False, Left:=50, Top:=150, Width:=60, Height _
            :=30)
           
    With oCmd
        .Name = "KaroCmd"
        .Object.Caption = "Witaj"
    End With
    Set oCmd = Nothing
   
    Set oCmd = .OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=160, Top:=150, Width:=60, Height:= _
        30)
    With oCmd
        .Name = "KaroTxtActiveX"
        .Object.Text = "śnieg"
    End With
   
End With
End Sub


_____________________________________________
Karolina

01-12-2004 22:58
Pokaż profil karolinavb  Wyślij email do karolinavb   
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1