Beste,
Ik heb onderstaande macro voor het plaatsen van een ElbowConnector. Echter de macro wordt wel uitgevoerd maar de connector wordt niet geplaatst.
In de bijlage heb ik een paar cellen geel gemarkeerd die ik met de inputbox selecteer.
Ook merk ik dat de begindatum altijd verder moet liggen dan de einddatum.
Waar gaat het hier fout?
Ik heb onderstaande macro voor het plaatsen van een ElbowConnector. Echter de macro wordt wel uitgevoerd maar de connector wordt niet geplaatst.
In de bijlage heb ik een paar cellen geel gemarkeerd die ik met de inputbox selecteer.
Ook merk ik dat de begindatum altijd verder moet liggen dan de einddatum.
Waar gaat het hier fout?
Code:
Sub Add_ConnectorElbow()
Dim ws As Worksheet
Dim Date1 As Shape
Dim Date2 As Shape
Dim Connector As Shape
' Set the active worksheet (you can adjust this as needed)
Set ws = ActiveSheet
' Assuming Shape1 and Shape2 represent your existing shapes (you can adjust these references)
For d1 = Application.InputBox("geef startdatum", Type:=1) + 2 To Application.InputBox("geef einddatum", Type:=1)
r = Application.Match(d1, ActiveSheet.Rows(6), 0) 'zoek die dag op in de rij 6
If IsNumeric(r) Then 'gevonden
Set C = ActiveSheet.Cells(ActiveCell.Row, r)
If NewShp Is Nothing Then
' Add a straight connector between Shape1 and Shape2
Set NewShp = ActiveSheet.ws.Shapes.AddConnector(msoConnectorElbow, 1, 1, 1, 1)
End If
End If
Next
End Sub