Вставка фигуры в выделенную ячейку

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Вставка фигуры в выделенную ячейку - Мир MS Excel

Старая форма входа

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

Вставка фигуры в выделенную ячейку (Макросы/Sub)

Вставка фигуры в выделенную ячейку

ant6729

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

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

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Всем привет

Хочу в выделенную ячейку вставить ромб.

Пишу так

[vba]

Код

Sub ромб()

ActiveSheet.Shapes.Range(Array("Diamond 54")).Select ' условно 54 ромб))
Selection.Copy
ActiveSheet.Paste

End Sub

[/vba]

Пытался заменить на selection paste или на ActiveCell paste.. Ничего...
Прошу подсказать, как манипулировать ромбом.

Ответить

_Boroda_

Дата: Пятница, 05.10.2018, 02:45 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Из макрорекодера почти ничего не меняя
[vba]

Код

    ActiveSheet.Shapes.Range(Array("Diamond 1")).Select
    Selection.Copy
    ActiveCell.Select
    ActiveSheet.Paste

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

ant6729

Дата: Пятница, 05.10.2018, 05:45 | Сообщение № 3

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

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Что это я ....совсем
Спасибо!

Ответить

Вставка фигуры в выделенную ячейку (Макросы/Sub)

Страница 1 из 1
1