Ya terminé y todo quedó perfecto :)
Código:
With With ActiveSheet.Shapes("2 Straight Arrow Connector")
.ScaleWidth escalita, msoFalse, donde
.ScaleHeight escalita, msoFalse, donde2
End With
Donde,
escalita era mi resultado (80%,50% etc) y
donde y
donde2, dependiendo del cuadrante en el cual estan las flechas, era la combinacion:
BottomRight o
TopLeft dependiendo de lo que quisiera dejar fijo :) Saludos!!