Hej Gogo,
Jeg har lavet denne kode, som jeg håber du synes om.
Kør koden, klik på en celle og angiv evt, navn og makronavn (Ikke nødvendigt), så laver den en knap som er tilpasset cellen.
Knappen vil iøvrigt 'følge med' når du ændrer cellens størrelse.
Sub Knap_Generator()
On Error Resume Next
Dim btn As Button
Dim rng As Range
Dim KnapTekst, KnapMakro As String
Set rng = Application.InputBox("Klik på den celle knappen skal indsættes i", , , , , , , 8)
KnapTekst = Application.InputBox("Skriv en evt. tekst til knappen")
KnapMakro = Application.InputBox("Skriv evt. navnet på den makro knappen starte")
With ActiveSheet
Set btn = .Buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height)
With btn
.Caption = KnapTekst
.OnAction = KnapMakro
End With
End With
End Sub
//Allan
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Autostørrelse på knapper??
Emne funktioner
