как удалить" фото/рис", а потом вставить на это место новый " фото/рис"?

TEG

Гость

26.04.2010 13:43:49

" рисунок/фото" имя или № рисунка неизвестен. известно только адрес ячейки
хотя бы покажите на примере как можно узнать имя или № рисунка по известным координатам ячейки.

Прикрепленные файлы

post_120116.xls (89 КБ)

nilem Пользователь Сообщений: 837 Регистрация: 23.12.2012	#2 26.04.2010 14:41:15 См. файл Прикрепленные файлы post_120135.xls (45 КБ)

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

26.04.2010 14:43:09

Вот ещё вариант в виде файла: http://excelvba.ru/XL_Files/Sample__26-04-2010__16-42-25.zip

Использовал такой код:

Function getShape(ByRef cell As Range) As Shape
Dim sha As Shape
For Each sha In cell.Worksheet.Shapes
If sha.TopLeftCell.Address = cell.Address Then
Set getShape = sha: Exit Function
End If
Next sha
End Function

Sub Макрос1()
On Error Resume Next
Set a = getShape(ActiveCell)
MsgBox a.Name
End Sub

Sub Макрос2()
MsgBox "Номер рисунка: " & Split(getShape([b2]).Name, " ")(1)
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

TEG Гость	#4 26.04.2010 16:57:29 Большое спасибо! попробую.

TEG

Гость

26.04.2010 17:08:11

{quote}{login=EducatedFool}{date=26.04.2010 02:43}{thema=}{post}Вот ещё вариант в виде файла: http://excelvba.ru/XL_Files/Sample__26-04-2010__16-42-25.zip

Использовал такой код:

Function getShape(ByRef cell As Range) As Shape
Dim sha As Shape
For Each sha In cell.Worksheet.Shapes
If sha.TopLeftCell.Address = cell.Address Then
Set getShape = sha: Exit Function
End If
Next sha
End Function

Sub Макрос1()
On Error Resume Next
Set a = getShape(ActiveCell)
MsgBox a.Name
End Sub

Sub Макрос2()
MsgBox "Номер рисунка: " & Split(getShape([b2]).Name, " ")(1)
End Sub{/post}{/quote}

Sub Макрос1()
On Error Resume Next
Set a = getShape(ActiveCell)
MsgBox a.Name
End Sub 'то что нужно. спасибо.

TEG Гость	#6 26.04.2010 17:09:33 {quote}{login=nilem}{date=26.04.2010 02:41}{thema=}{post}См. файл{/post}{/quote} большое спасибо.

Читают тему