Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 509
от 20.04.2007, 11:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 255, Экспертов: 40
В номере:Вопросов: 3, Ответов: 3


Вопрос № 82543: помогите,пожалуйста, найти ошибку в программе. задание: Даны функции, составить программу и сделать расчет с учетом критических точек. для y=sin2(x+b)+sqr(cos3(x3+c)) решение: input x,c,b if cos^3(x^3+c)>+0 then print y=sin^2...
Вопрос № 82569: 1) WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER, "c:выводит на экран стандартный диалог сохранения файла IE. Можно ли сделать так, чтобы диалог не выводился, а страница сохранялась в заданный файл без ..
Вопрос № 82632: Здравствуйте. В таблицы Word вставлены InlineShapes. Как программно подогнать их размеры под размеры ячеек таблицы? (Интересует ширина, т.к. высота подгоняется автоматически)....

Вопрос № 82.543
помогите,пожалуйста, найти ошибку в программе.
задание: Даны функции, составить программу и сделать расчет с учетом критических точек. для y=sin2(x+b)+sqr(cos3(x3+c))
решение:

input x,c,b
if cos^3(x^3+c)>+0 then print y=sin^2(x+b) +sqr(cos^3(x^3+c)) else print “решений нет”
end.
Отправлен: 14.04.2007, 12:08
Вопрос задала: Wika (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Jan
Здравствуйте, Wika!
input x,c,b
if cos^3(x^3+c)>0 then
y=sin^2(x+b) +sqr(cos^3(x^3+c))
print у
else
print “решений нет”
end if
end
Ответ отправил: Jan (статус: 1-ый класс)
Ответ отправлен: 14.04.2007, 13:23


Вопрос № 82.569
1) WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER, "c:выводит на экран стандартный диалог сохранения файла IE. Можно ли сделать так, чтобы диалог не выводился, а страница сохранялась в заданный файл без

задержки?

2) После нажатия кнопки "Сохранить" файл сохраняется. Как сделать так, чтобы одновременно создавалась и "наполнялась содержимым" папка

"c:
3) Может ли метод ExecWB быть применен в VBA Excel?
Отправлен: 14.04.2007, 18:44
Вопрос задал: I-a-i (статус: Практикант)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: PsySex
Здравствуйте, I-a-i!
1. Можно программно жать на кнопку сохранить, пример в приложении. Возможно после вывода диалога с помощью .ExecWB и непосредственно вызовом функции нажатия на кнопку нужно будет сделать небольшую паузу, чтоб окно сохранения успело создаться.

2. Возможно на это влияет параметр "Отображать рисунки" в настройках IE.

3. Думаю, если есть возможность расместить контрол WebBrowser, то и метод работать будет.

Приложение:

---------
Bom Shankar!

Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 15.04.2007, 13:02


Вопрос № 82.632
Здравствуйте. В таблицы Word вставлены InlineShapes. Как программно подогнать их размеры под размеры ячеек таблицы? (Интересует ширина, т.к. высота подгоняется автоматически).
Отправлен: 15.04.2007, 11:20
Вопрос задал: Михаил73 (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: HookEst
Здравствуйте, Михаил73!
Перебираете или все ячейки таблицы, или все InlineShapes таблицы
и устанавливаете ширину Shape = ширине Cell

Sub Reidth()
Dim s
'для каждого InlineShape из первой таблицы:
For Each s In Tables(1).Range.InlineShapes
s.Width = s.Range.Cells(1).Width
Next s
End Sub
Успехов
Ответ отправил: HookEst (статус: Студент)
Ответ отправлен: 16.04.2007, 10:10
Оценка за ответ: 5
Комментарий оценки:
Спасибо. Хотя все равно придется пропорционально подгонять и высоту, но с этим-то я справлюсь.


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.50 (beta) от 15.04.2007
Яндекс Rambler's Top100

В избранное