Если ваша задача еще актуальна, можно добавить такой макрос. Результат такой же, как в предыдущем решении, только размеры показаны в пикселях и фигуры можно изменять(только не забыть потом запустить макрос))  
Dim fig As shape  
Sub Macros()  
  For Each fig In ActiveSheet.Shapes  
  fig.Select  
  ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _  
  "", SubAddress:="Ëèñò1!A1", ScreenTip:=Str(Selection.ShapeRange.Width * 1.33)  
  Next  
End Sub