LinkedCell bij Checkboxen

[wieter]

Dank zij de code van Cobbe, kan ik snel de nodige checkboxen plaatsen, op de juiste plaats en in het gewenste formaat.
Daarna moet ik dan wel manueel, de letterkleur in de LinkedCells, op wit zetten.
Is het mogelijk om binnen DIE ZELFDE CODE , de letterkleur van de LinkedCells, automatisch op wit te zetten?

Private Sub CommandButton1_Click()
n = Val(InputBox("Hoeveel checkboxen heb je nodig? "))
r = Val(InputBox(" Op welke rij komt het eerste vakje? "))
k = Val(InputBox("In welke kolom(cijfer) moeten deze komen? "))
  For i = 0 To n - 1
   ActiveSheet.CheckBoxes.Add((Cells(r + i, k).Left + 15), (Cells(r + i, k).Top - 1), 72, 72).Select
    Selection.Characters.Text = ""
    Selection.LinkedCell = Cells(r + i, k).Address
    Selection.ShapeRange.Height = 17.25
    Selection.ShapeRange.Width = 17.25
    Selection.Display3DShading = True
  Next i
End Sub

 

[snb]

Waarom wil je 'linked cells' als je het resultaat in die cellen niet wil zien ?

 

[Cobbe]

Zo goed?

Private Sub CommandButton1_Click()
n = Val(InputBox("Hoeveel checkboxen heb je nodig? "))
r = Val(InputBox(" Op welke rij komt het eerste vakje? "))
k = Val(InputBox("In welke kolom(cijfer) moeten deze komen? "))
  For i = 0 To n - 1
   ActiveSheet.CheckBoxes.Add((Cells(r + i, k).Left + 15), (Cells(r + i, k).Top - 1), 72, 72).Select
    Selection.Characters.Text = ""
    Selection.LinkedCell = Cells(r + i, k).Address: Cells(r + i, k).Font.Color = vbWhite

    Selection.ShapeRange.Height = 17.25
    Selection.ShapeRange.Width = 17.25
    Selection.Display3DShading = True
  Next i
End Sub

 

[wieter]

Bingo Cobbe, ik was met een aparte coderegel bezig, en kreeg het maar niet klaar.
Bedankt en succes met je variabel bereik.

 

[snb]

For i = 0 To n - 1
  Cells(r + i, k).Font.Color = vbWhite
  with ActiveSheet.CheckBoxes.Add((Cells(r + i, k).Left + 15), (Cells(r + i, k).Top - 1), 72, 72)
     .LinkedCell = Cells(r + i, k).Address
    .Height = 17.25
    .Width = 17.25
    .Display3DShading = True
  end with
Next

 

[wieter]

Bedankt snb,
Ik zie ondertussen mijn fout: FontColor <> Font.Color