Autostørrelse på knapper??
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=301
Udskrevet den: 05.Dec.2024 kl. 03:41
Emne: Autostørrelse på knapper??
Besked fra: Gogo
Emne: Autostørrelse på knapper??
Posteringsdato: 29.Mar.2011 kl. 16:17
|
Hejsa.... Kan en knap tilpasse sig selv til en celles størrelse?? Jeg skal lave mange knapper, men de bliver alle sammen forskellige i deres mål. Derfor vil jeg have hjælp til at de tilpasses til cellestørrelse. Mvh Gogo
|
Svar:
Besked fra: peda
Posteringsdato: 31.Mar.2011 kl. 08:14
|
Lan een knap. Tilpas den i størrelse, og tag så kopier af den første
mvh
Peda
|
Besked fra: Gogo
Posteringsdato: 31.Mar.2011 kl. 10:21
|
Tak Peda!
Ja det er så logisk nok... :)
Men kan man ikke på automatisk vis gør knappen ligeså stor som en celle??
Gogo
|
Besked fra: Allan
Posteringsdato: 01.Apr.2011 kl. 22:16
|
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
|
Besked fra: Gogo
Posteringsdato: 01.Apr.2011 kl. 22:46
|
Endnu engang et super svar.
Men jeg havde håbet på at det kunne gøres uden VBA kode. Troede at der måske var en form for indstilling man kunne gøre det ved.
Men tak for svaret ellers....
 |