Vraag & Antwoord

Programmeren

VBA Excel: hoe kan ik een tekstvak verplaatsen?

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

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

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