VBNet - Форум - Управление Excel из PowerPoint

Вопрос: Управление Excel из PowerPoint Добавлено: 12.03.09 11:12

Автор вопроса: GalmKzAstana

Подскажите как при открытии Excel из PP отлючить в Excel отображение сетки, координат столбцов и строк.
При этом в Excel это прописать нельзя.

Я делаю так. В PP в процедуре указываю
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("c:/test.xls")
но вот так например

    With objWorkbook.Application
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
или
    With objExcel.Application
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With

или
    With ActiveWindows.Application
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
не проходят. Выдает ошибку.
Помогите
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #1	Добавлено: 12.03.09 11:37
	objWorkbook.Worksheets(1).Activate With ActiveWindows '.Application .DisplayGridlines = False .DisplayHeadings = False End With Ответить

Номер ответа: 2 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #2	Добавлено: 12.03.09 11:40
	Прошу прощения - правильнее так: objWorkbook.Worksheets(1).Activate With ActiveWindow 's.Application .DisplayGridlines = False .DisplayHeadings = False End With Ответить

Номер ответа: 3 Автор ответа: GalmKzAstana Вопросов: 2 Ответов: 3	Профиль \| \| #3	Добавлено: 12.03.09 12:03
	Выдает ошибку --------------------------- Microsoft Visual Basic --------------------------- Compile error: Method or data member not found --------------------------- ОК Справка --------------------------- Ответить

Номер ответа: 4 Автор ответа: GalmKzAstana Вопросов: 2 Ответов: 3	Профиль \| \| #4	Добавлено: 12.03.09 12:05
	При этом выделяет именно .DisplayGridLines = False Ответить

Номер ответа: 5 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #5	Добавлено: 12.03.09 12:13
	А если так: With objExcel.ActiveWindow .DisplayGridlines = False .DisplayHeadings = False End With Ответить

Номер ответа: 6 Автор ответа: GalmKzAstana Вопросов: 2 Ответов: 3	Профиль \| \| #6	Добавлено: 12.03.09 13:51
	) прошло! Спасибо. Надо же.. ответ был рядом. Ответить

Страница: 1 |