textbox in een useform vertikaal plaatsen

[gst]

snb,

Dit is wat ik bedoel!
Bestaat er ook een mogelijkheid om de waarde, zodra deze in de label geplaatst is, om te zetten in een Arial font?

In ieder geval allen dank voor het meedenken!

gst

 

[snb]

Als je je nieuwsgierigheid niet hebt kunnen bedwingen en meteen hebt geanalyseerd hoe ik het voor elkaar heb gebokst, weet je ook hoe je zelf het antwoord kunt formuleren op je laatste vraag.

 

[gst]

Beste snb,

Dit is wat ik uitvoerig heb gedaan en vond de oplossing briljant!
Maar het lukte me niet om het font aan te passen.
Geprobeerd om het font, nadat de label gevuld was, te wijzigen in een ander font met een bepaalde waarde maar dit lukte niet. Toen gezocht in paint (waar ik overigens nooit mee werk), maar zag zo geen mogelijkheid. Maar goed… ik zal proberen iets meer geduld op te brengen om het nog uit te zoeken. In ieder geval bedankt voor de oplossing van de verticale tekst!

gst

 

[alphamax]

textbox rechtstreeks in chartobject, zonder hidden worksheet

[SIZE=1]Option Explicit

Private Sub CommandButton1_Click()
    Dim strTemp As String
    strTemp = Environ("temp") & "\temp.bmp"
    With Blad1.ChartObjects.Add(1, 1, 24, 144)
        .Border.LineStyle = xlNone
        .Chart.Shapes.AddTextbox(msoTextOrientationVertical, 1, 1, 24, 144).TextFrame.Characters.Text = TextBox1.Value
        .Chart.Export strTemp
        .Delete
    End With
    Image1.Picture = LoadPicture(strTemp)
    Kill strTemp
End Sub[/SIZE]

Ander font?

Vervang

[SIZE=1].Chart.Shapes.AddTextbox(msoTextOrientationVertical, 1, 1, 24, 144).TextFrame.Characters.Text = TextBox1.Value[/SIZE]

door

[SIZE=1]With .Chart.Shapes.AddTextbox(msoTextOrientationVertical, 1, 1, 24, 144).TextFrame.Characters
            .Font.Name = "comic sans ms"
            .Text = TextBox1.Value
        End With
[/SIZE]

 

[snb]

@alpha

Chapeau ! :thumb:


Maar omdat dit geen eenmalige aktie is, houd ik mijn voorkeur voor een verborgen blad overeind.
Om dezelfde reden lijkt mij de herhaaldelijke aanmaak van 2 'shapes' niet nodig.

 

[gst]

snb en Alphamax,

Beide werkt zoals gevraagd waarvoor dank.

Echter bij snb krijg ik het niet voor elkaar om het font aan te passen, o.a. geprobeerd met: Label1.Font.Name = "..." maar ik zie geen verandering.
en bij Alphamax krijg ik het niet voor elkaar om de tekst 180° te draaien.

gst

 

[snb]

Zoals @Alpha al aangaf hoe het lettertype gewijzigd kan worden.
Probeer het zelf voor elkaar te krijgen, daar leer je het meest van.

 

[gst]

snb,

Je hebt helemaal gelijk!
Laatste versie van alphamax aangepast en als bijlage toegevoegd.
Dank voor jullie inspanning.

gst