Formater flere kontrolelementer på samme tid

Prøv at marker dem og højreklikke her kan du vælge størelse .... jeg ved ikke om det virker men du kan jo prøve

Jeg tror egentlig ikke filen er helt almindelig....jeg kan godt markere alle objekterne, men nu kan jeg overhovedet ikke få "formater kontrolelement" boksen frem, hvilket jeg godt kunne før og også stadig kan i en helt frisk fil...der er noget lummert i gærde........

Er arket låst .... det kan du se under funktioner -> beskyttelse

Nej...der er ingen beskyttelse indblandet....
jeg har iøvrigt ingen problemer i de øvrige ark i samme fil....der kører det i olie..

Har du været i koden og lurer lidt ... og se hvad der står i makroerne til knapperne ??

kan kun sige...makroerne duede inden og duer stadig....og makroerne er meget meget simple og ukomplicerede og identiske med makroerne tilhørende de knapper på de øvrige arksider der fungerer uden problemer.....men man skal selvfølgelig aldrig sige aldrig....hvad tænker du mere præcist på ?

Jeg tænkte på hvis størelsen på knapperne var angivet i koden !!!
Beklager jeg tror ikke jeg har flere forslag :o( .... men der skal jo nok komme en løsning !

nej, heller ikke noget med størrelse i makroen.....
Tak for forsøget iøvrigt....

Hvis dine knapper er på en form skulle denne kode virke:
    Dim Kontrol As Control
    For Each Kontrol In Me.Controls
        If TypeOf Kontrol Is CommandButton Then
            ' skriv din format kode her
        End If
    Next

Hvis dine knapper er på en form, kan du markere dem alle og vælge "make same size" på værktøjslinien for knapperne.
Hvis det er bokse tegnet fra Værktøjslinien kontrolelementer, markerer du dem alle sammen, vælger egenskaber fra samme værktøjslinie, derefter skriver du i feltet Height og dernæst i feltet With, så er alle bokse lige store. Dette er just afprøvet.
M.v.h.
Susanne

Hvad er en form ?

En form er en brugerformular lavet i VBA i Excel.
Hvordan har du tegnet/lavet knapperne
M.v.h.
Susanne

Det er uden formular.

¨Hej Tida
Jeg gentager mit svar i henhold til det du har skrevet.
Hvis det er bokse tegnet fra Værktøjslinien kontrolelementer, markerer du dem alle sammen, vælger egenskaber fra samme værktøjslinie, derefter skriver du i feltet Height og dernæst i feltet With, så er alle bokse lige store.
M.v.h.
Susanne

Hej Tida ;-)
Det skal vist noget helt andet til, når du dine CommandButtons er placeret direkte i regnearket. Prøv denne lide kode stump.

Public Sub HeightWightCommandButtonsInWorksheet()
    Dim iCount As Integer
    Dim objOLE As OLEObject
   
    For Each objOLE In Worksheets("Sheet1").OLEObjects
        With objOLE
            If .OLEType = xlOLEControl Then
                .Height = 21
                .Width = 60
            End If
        End With
    Next objOLE
    Set objOLE = Nothing
End Sub

/Flemming

Hej Tida ;-)
Det skal vist noget helt andet til, når du dine CommandButtons er placeret direkte i regnearket. Prøv denne lide kode stump.

Public Sub HeightWightCommandButtonsInWorksheet()
    Dim iCount As Integer
    Dim objOLE As OLEObject
   
    For Each objOLE In Worksheets("Sheet1").OLEObjects
        With objOLE
            If .OLEType = xlOLEControl Then
                .Height = 21
                .Width = 60
            End If
        End With
    Next objOLE
    Set objOLE = Nothing
End Sub

/Flemming

hehe - der fik jeg vist slået det fast :-)