Сохранить нарисованное в PictureBox

[nttz]

Помогите плз.
В PictureBox'е рисуются линии. квадратики и т.д. Потом всю эту лабуду(нарисованную) нужно сохранить в файле.bmp
Как это сделать?

[nttz]

Блин ну чего все молчат, я понимаю что вопрос ламерский, но всёже помогите, плиз.

[A.A.Z.]

Код: Выделить всё

SavePicture Picture1.Picture, "C:\1.bmp"

[nttz]

Спасибо конечно за совет, но данный метод не потходит, потому что изночально в PictureBox картинка не загружалась и следовательно картинки в нём нет.
Когда пишем :

Код: Выделить всё

SavePicture Picture1.Picture, "C:\1.bmp"

выдаётся ошибка говорящая об отсутствии картинки в PictureBox'е

[alibek]

Код: Выделить всё

SavePicture Picture1.Image, ...

[nttz]

Сенкс работает.
А не подскажешь как сделать чтобы Image из PictureBox'а при нажатии на кнопку автоматически вставлялся в Word'ский документ?

[GSerg]

Код: Выделить всё

Private Sub Command1_Click()
  With CreateObject("word.application")
    Clipboard.SetData Picture1.Image
    .documents.add.range.paste
    .Visible = True
  End With
End Sub

[nttz]

Большое сенкс.

[nttz]

Код: Выделить всё

Private Sub Command1_Click()
  With CreateObject("word.application")
    Clipboard.SetData Picture1.Image
    .documents.add.range.paste
    .Visible = True
  End With
End Sub

Если набрать этот код то создаётся документ Word, но вместо Image в него встовляется надпись Picture1.Image. Вот.
Ещё варианты есть?

[GSerg]

Да, я заметил, чтот если в буфере уже есть текстовые данные, то следующая команда копирования проходит текстом. Попробуй перед копированием clipboard.clear.

[nttz]

Сенкс огромное, теперь всё работает, но появился ещё вопрос.

Код: Выделить всё

Private Sub Command1_Click()
  With CreateObject("word.application")
    Clipboard.SetData Picture1.Image
    .documents.add.range.paste
    .Visible = True
  End With
End Sub

при выполнении этого кода всегда создаётся новый документ Word'a а как сделать такую вставку, в какой-то конкретный документ?

[Al Khamid]

14

[nttz]

Спс.
Получается я ввожу следующий код:

Код: Выделить всё

With GetObject("E:\1.doc")
    Clipboard.SetData Picture1.Image
    .documents.Add.range.Paste
    .Visible = True
End Wit

но тогда выдаётся ошибка: Object doesn't support this property or method
и выделяет вот эту часть кода: .documents.Add.range.Paste
что здесь нужно поменять?

[nttz]

Помогите народ очень надо, плз.

[Vitaly1]

тут открыли файл
set application = CreateObject("word.application")
application.documents.open "Путь к файлу"


в кнопке
тут добавляем новую картинку
Clipboard.SetData Picture1.Image
application.documents("Имя").add.range.paste


тут закрыли файл
with application
.documents("Имя").save
.documents("Имя").close
.Quit
End With
set application = Nothing
Ну, так примерно.

[nttz]

Вот есть такой код:

Код: Выделить всё

Private Sub Command1_Click()
Clipboard.Clear
With CreateObject("word.application")
     .documents.open "C:\1.doc"
     Clipboard.SetData Picture1.Image
     .documents("C:\1.doc").range.Paste
     Clipboard.SetText Text1.Text
     .documents("C:\1.doc").range.Paste
     .Visible = True
End With
End Sub


он работает, но сначало в 1.doc вставляется картинка из Picture1.Image, потом она удаляется и вставляется текст из Text1.Text
А мне нужно чтобы в 1.doc вставились и картинка и текст, вот.
Как это сделать? Помогите народ!