Алекс, Вы можете вывести необходимое в ячейки? Если да, то нет проблем отобразить это в автофигуре.

Общая идея - для отслеживания событий использовать диаграмму, а надпись добавлять уже на shape. Не уверен, что пример будет работать в excel младше 2007, т.к. проверял именно в нем

.ChartArea.Top / .left - положение вехнего левого угла диаграммы на листе. Меняется при перемещении диаграммы

Нет. Сгруппированная с прямоугольником диаграмма при попытке назначить Set oChart = Me.ChartObjects(1).Chart даёт ошибку 1004

А если так:  
Private Sub oChart_Resize()  
Dim x As ChartObject  
Set x = Sheets("Лист1").ChartObjects("Chart 7")  
   With x.Chart  
   MsgBox x.Top & "  " & x.Left  
   End With  
Далее по тексту...

{quote}{login=}{date=01.07.2011 03:30}{thema=}{post}поковырял в 2003 ex - так должно работать{/post}{/quote}  
Неа - и ширина с высотой перестали :-)

Вот.

Юрий, а в чём разница: As ChartObject или As Chart ?  
И почему нельзя брать ширину из oChart As Chart, но можно из x As ChartObject?  
Надо будет поковыряться и попробовать отлавливать события у объекта As ChartObject …  
Но это-то ладно, а вот как выводить без полей?

{quote}{login=Alex_ST}{date=01.07.2011 04:03}{thema=}{post}Попробовал - у объекта ChartObject нет событий, зато всё в порядке с размерами{/post}{/quote}  
Ну вот, а то Вы капризничали - зачем MsgBox :-) В единицы размера не вникал.

Ага :-) После кнопки ширина/высота на объекте меняется. Позиция в ячейках нет.

А где тогда позицию смотреть? Алекс ведь именно это сейчас ищет :-)

Алекс хитрый - сначала спрашивал про размеры, а потом появились ещё и ChartArea.Top и ChartArea.Left :-) Нужно ему, зачем-то...

Positioning VBA user forms using pixels  
VBA user forms use points to position themselves. Most of the Win32 APIs deal with pixels. An inch has 72 points. The following code snippet converts from pixels to points. Another code snippet shows how to position user forms using this conversion function. We would position a user form on the right-most edge of the screen.  
 
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long  
Private Declare Function ReleaseDC Lib "user32" ( _  
   ByVal hWnd As Long, _  
   ByVal hDC As Long) As Long  
Private Declare Function GetDeviceCaps Lib "gdi32" ( _  
   ByVal hDC As Long, _  
   ByVal nIndex As Long) As Long  
 
Const LOGPIXELSX = 88  
Const LOGPIXELSY = 90  
Const TWIPSPERINCH = 1440  
 
Private Declare Function GetSystemMetrics Lib "user32" ( _  
   ByVal nIndex As Long) As Long  
 
Private Const SM_CXFULLSCREEN = 16  
Private Const SM_CYFULLSCREEN = 17  
 
Sub ConvertPixelsToPoints(ByRef X As Single, ByRef Y As Single)  
   Dim hDC As Long  
   Dim RetVal As Long  
   Dim XPixelsPerInch As Long  
   Dim YPixelsPerInch As Long  
 
   hDC = GetDC(0)  
   XPixelsPerInch = GetDeviceCaps(hDC, LOGPIXELSX)  
   YPixelsPerInch = GetDeviceCaps(hDC, LOGPIXELSY)  
   RetVal = ReleaseDC(0, hDC)  
   X = X * TWIPSPERINCH / 20 / XPixelsPerInch  
   Y = Y * TWIPSPERINCH / 20 / YPixelsPerInch  
End Sub  
 
Sub Test()  
   Dim Wt As Single  
   Dim Ht As Single  
 
   Wt = GetSystemMetrics(SM_CXFULLSCREEN)  
   Ht = GetSystemMetrics(SM_CYFULLSCREEN)  
   With TestUserForm  
       ConvertPixelsToPoints Wt, Ht  
       .Left = Wt - .Width  
       .Show vbModeless  
   End With  
End Sub

Вместо    
Set oChart = Me.ChartObjects(1).Chart  
используй  
Set oChart = ActiveChart  
   
при условии что других диаграмм на листе нет.