Toon posts:

[VBA] Button in een cel

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik ben met een stukje vba bezig in Excel.
Ik heb een macro gemaakt waarbij je via een knop een handleiding kan opzoeken.

Hoe zet ik bij het klikken op de button automatisch de focus op de cel van de button zodat ik de juiste waarde uit de cel mee kan geven in de macro om de betreffende handleiding te openen?

Ik weet hoe ik een button kan plaatsten vanuit een macro:

code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
    Dim filename As String
    Dim x As Integer
    Dim y As Integer
    
    filename = OpenDialog
    If filename <> "" Then
        ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column).Value = filename
    End If
    
    x = ActiveCell.Left + 2
    y = ActiveCell.Top + 2
    
    ActiveSheet.Buttons.Add(x, y, 165, 27.75).Select
    
    Selection.OnAction = "OpenManual"
    Selection.Characters.Text = "Handleiding openen..."
    With Selection.Characters(Start:=1, Length:=21).Font
        .Name = "Arial"
        .FontStyle = "Standaard"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With