textbox in een useform vertikaal plaatsen

  • Onderwerp starter Onderwerp starter gst
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
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
 
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.
 
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
 
textbox rechtstreeks in chartobject, zonder hidden worksheet
Code:
[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
Code:
[SIZE=1].Chart.Shapes.AddTextbox(msoTextOrientationVertical, 1, 1, 24, 144).TextFrame.Characters.Text = TextBox1.Value[/SIZE]
door
Code:
[SIZE=1]With .Chart.Shapes.AddTextbox(msoTextOrientationVertical, 1, 1, 24, 144).TextFrame.Characters
            .Font.Name = "comic sans ms"
            .Text = TextBox1.Value
        End With
[/SIZE]
 

Bijlagen

Laatst bewerkt:
@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.
 

Bijlagen

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
 
Zoals @Alpha al aangaf hoe het lettertype gewijzigd kan worden.
Probeer het zelf voor elkaar te krijgen, daar leer je het meest van.
 
snb,

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

gst
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan