Indsætte label i runtime

Public Sub Streger()
I = 0
For Each sh In ActiveSheet.Shapes
    If sh.Type = msoLine Then
  I = I + 50 ' styrer left
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, _
        DisplayAsIcon:=False, Left:=I, Top:=20, Width:=50, Height:= _
        15).Select
        'indsæt en label (gerne fra kontrolelementer)
    End If
Next
End Sub

Ser ud til at virke. Får dog først tid til at gennemteste det i morgen

Det virker perfekt. Jeg har lige et lille ekstra spørgsmål: er det muligt at rotere teksten 90 grader i en label, hvis ikke, er der andre muligheder hvor man kan rotere en tekst ?

Jeg kan ikke se at den har egenskaben for roter, så nej.

tænkte det nok, men hvordan kan man ændre font size og caption i label'en ? Jeg har forsøgt med:
            ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, DisplayAsIcon:=False, _
            Left:=sh.Left + sh.Width / 2 - 50 / 2, _
            Top:=sh.Top - 10 - 1, _
            Width:=50, _
            Caption:="Hej", _
            Font.Size:=7. _
            Height:=10).Select
men det virker desværre ikke

lukker

Sub Makro1()
Dim x As OLEObject
    Set x = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, _
        DisplayAsIcon:=False, Left:=150, Top:=50, Width:=100, Height:=20.75)
        x.Object.Caption = "XXXX er en fin øl"
        x.Object.BackColor = &H80FFAF
        x.Object.FontSize = 12
       
End Sub

Hvorfor afviser du, du skrev jo selv at det virkede i din kommentar af 04/08 kl. 10:16:09

Det andet var jo et tillægs spørgsmål