Post it plaatsen

[schilderehbo]

Ik heb een macro gemaakt die een tekstvakje plaatst geel net als een post it blaadje.
nu gaat dat goed, maar dat komt steeds op de zelfde plaats in de sheet. Nu wil ik dat het komt op de plek waar ik op dat moment ben in de sheet.
Is dat mogelijk ?

alvast bedankt.

 

[AccessGuru]

Doe in ieder geval de code erbij, maar liever nog het bestandje.

 

[emields]

Aangezien je nog maar bijna 7 jaar lid bent weet je waarschijnlijk niet dat het de voorkeur geniet een voorbeeld bestandje te plaatsen.
Daarom heb ik het voor deze ene keer zelf gedaan.

 

[AccessGuru]

En zo leert TS het nooit .

 

[schilderehbo]

postit

Had dacht ik een bestandje bijgevoegd.
Ben maar een schilder he

Nu gecheckt en bestandje bijgevoegd.

 

[snb]

Verwijder de ovaal.
Zet dit in de macromodule van het werkblad.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Shapes(1)
       .Top = Target.Top
       .Left = Target.Offset(, 1).Left + 10
    End With
End Sub

 

[schilderehbo]

Verwijder ovaal ? Maar hoe krijgt de gebruiker dan een post it ingevoegd als hij dat wil ?

 

[HSV]

Sub postit()
  ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, 99.6, 66.6).Fill.ForeColor.RGB = RGB(255, 255, 0)
End Sub

Je kan de coderegel opdelen met een Underscore als je wilt.

 

[snb]

Die hoeft er maar 1 keer in te staan en dat is nu al het geval.

 

[HSV]

Met duplicatie bedoel je?
Krijg je wel telkens dezelfde tekst erbij.

 

[snb]

Ziezo, kant en klaar, met ovaal.