Вниз
Скачать: CL | DM;

Работа с объектами в Excel   Найти похожие ветки 

← →
VID ©   (2003-03-17 15:27) [0]

ДАНО: документ Excel.
Рабочая область ну к примеру 10строк Х 10 столбцов
Каждая ячейка рабочей области содержит в себе объект TButton (ну или как это в VBA называется ?)
Каждый TButton имеет в своём св-ве Caption какое то строковое значение.
ТРЕБУЕТСЯ:
макрос удаляющий вообще ВСЕ объекты (типа TButton, рисунки и всё такое...) из документа Excel, но перед этим, перед удалением каждого объекта типа TButton (именно такого) он сначала скопирует Caption этой кнопки в ячейку, которой принадлежит кнопка... а потом уже удалит эту кнопку.

вот такая задачка...


← →
Ihor Osov'yak ©   (2003-03-17 15:37) [1]

ну задачка, как задачка..


← →
sad ©   (2003-03-17 16:37) [2]

ActiveSheet.Range("A4").Value = ThisWorkbook.Worksheets(1).CommandButton1.Caption
ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete


← →
VID ©   (2003-03-17 16:39) [3]

угу, и здесь думаю одним uses Excel97 уже неотмазаться :)
но как то же это наверное можно сделать....


← →
VID ©   (2003-03-17 18:39) [4]

to sad: я не успел :)


← →
VID ©   (2003-03-17 20:48) [5]

to sad: твой вариант немного не подходит... если хочешь , я пришлю тебе на мыло (e-mail - ?) xls файл и ты сразу поймёшь что я имею ввиду...

там каждая кнопка как бы прикреплена к ячейке, когда я изменяю высоту строки , то Button.Top тоже меняется.
А вообще такую таблицу я получил из html таблицы, в которой в одной из колонок в каждой ячейке были кнопки типа Submit(TButton)


← →
sad ©   (2003-03-18 12:11) [6]

высылай посмотрю мыло в анкете


← →
VID ©   (2003-03-18 13:33) [7]

выслал.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c
3-6369
RDA
2003-03-14 14:20
2003.04.03
FireBird - клиентская часть


4-6869
Nic2
2003-02-06 15:36
2003.04.03
Сообщения


1-6578
misterix
2003-03-20 14:25
2003.04.03
Свойство Parent у формы, расположенной в DLL


4-6861
Ajax
2003-02-04 18:27
2003.04.03
Самое-самое верхнее окно


3-6409
Erden
2003-03-16 14:34
2003.04.03
Invalid Time




   Наверх