Sub Makro1()
Dim oshp As Shape
Dim myCell As Range
With ActiveSheet
Set myCell = ActiveCell
.Shapes.AddConnector 1, myCell.Left, myCell.Top, myCell.Offset(, 1).Left, myCell.Offset(, 1).Top
Set oshp = .Shapes(.Shapes.Count)
With oshp
.Name = "Pfeil" & myCell.Address(0, 0)
With .Line
.EndArrowheadStyle = 2
.EndArrowheadLength = 2
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0.5
.Style = 1
.Weight = 2
End With
End With
End With
End Sub
Sub Makro2()
Dim oshp As Shape
Dim myCell As Range
With ActiveSheet
Set myCell = ActiveCell
Set oshp = .Shapes("Pfeil" & myCell.Address(0, 0))
With oshp
.Flip 0
.IncrementRotation 45
.IncrementLeft myCell.Width / 2
.IncrementTop myCell.Height / 2
End With
End With
End Sub
Sub Makro3()
Dim oshp As Shape
Dim WS As Worksheet: Set WS = ActiveSheet
With WS
Set oshp = .Shapes("PfeilB6")
With oshp
.Top = WS.Cells(10, 10).Top
.Left = WS.Cells(10, 10).Left
.ScaleHeight 1.5, msoFalse
.ScaleWidth 1.5, msoFalse
End With
End With
End Sub