Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

VBA Excel: hoe kan ik een tekstvak verplaatsen?

kanogek
2 antwoorden
  • Ik heb een sheet met daarop een grafiek. Naast de grafiek heb ik in tekstvakken (gemaakt vanuit werkbalk Tekenen) de namen van de lijnen staan.
    Nu moet ik nog handmatig de tekstvakken naast de lijnen plaatsen.
    Ik wil dit echter automatisch doen. De legenda gebruiken is niet voldoende ivm zwart-wit printers.
    De waardes van de lijnen zijn weer afhankelijk van input elders op het sheet.
    Weet iemand hoe ik dit aan kan pakken?

    groet
    Willem
  • Maak een tekstvak
    Neem een macro op
    sleep het testvak een stukje.
    stop macro opnemen
    kijk naar de macro
    [code:1:7351a11b3f]Sub Macro1()
    ActiveSheet.Shapes("Text Box 1").Select
    Selection.Characters.Text = "Test"
    With Selection.Characters(Start:=1, Length:=4).Font
    .Name = "Arial"
    .FontStyle = "Standaard"
    .Size = 10
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    .ColorIndex = xlAutomatic
    End With
    Selection.ShapeRange.IncrementLeft -222#
    Selection.ShapeRange.IncrementTop 6#
    Range("F25").Select
    End Sub
    [/code:1:7351a11b3f]
    Zoals je ziet kun je iets doen met
    [code:1:7351a11b3f]Selection.ShapeRange.IncrementLeft -222#
    Selection.ShapeRange.IncrementTop 6#
    [/code:1:7351a11b3f]
    ga eventueel op "IncrementLeft " staan en druk op F1 voor meer help

    Wim

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.