Определение цвета и текста в ячейке под картинкой

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Определение цвета и текста в ячейке под картинкой (Макросы/Sub)

DJBeast

Дата: Пятница, 02.02.2018, 06:02 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Доброе утро, народ.
Помогите решить задачу.

На листе много цветных ячеек с текстом и одна картинка.
Подскажите, как макросом определить цвет ячейки под центром картинки "Рисунок 5" - и вывести цвет в ячейку J3, а текст - в ячейку K3 ?

К сообщению приложен файл: 9677677.xlsb (27.4 Kb)

Ответить

Апострофф

Дата: Пятница, 02.02.2018, 09:10 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 467

Репутация: 129 ±

Замечаний: 0% ±

Excel 1997

[vba]

Код

Sub aaa()
Dim rn As Range, x!, y!
With ActiveSheet.Shapes("Рисунок 5")
  x = .Left + .Width / 2
  y = .Top + .Height / 2
  Set rn = .BottomRightCell
End With
While x < rn.Left
  Set rn = rn.Offset(, -1)
Wend
While y < rn.Top
  Set rn = rn.Offset(-1)
Wend
[j3] = Hex(rn.Interior.Color)
[k3] = rn
End Sub

[/vba]