На листе находится рисунок; можно ли сохранить этот рисунок из книги, как отдельный bmp или jpg файл?

@Avtopic · Регистрация: 23.04.2011

Студворк — интернет-сервис помощи студентам

1. На листе находится рисунок.
Можно ли, сохранить этот рисунок из книги как отделений Bmp или jpg файл.

И еще один вопрос:
Можно ли такое: сохранить строку в файле с помощью Write. файл создать с расширением Bmp. и чтобы этот файл откраивался как рисунок (конечно, имеется в виду простой рисунок). То ест, можно ли сымитировать создание файла Bmp формата.

13.10.2011, 16:41

мда...

@Avtopic · 14.10.2011, 00:30 **[ТС]**

To Сумрак:
Вашу <Мда> я оценил как реакцию высоко квалифицированного спецялиста. можете наслаждаться.

К остальным:
Если возможно Replace в Bmp файле, то может и возможно создать строку, в котором происходит Replace и записать в новый файл.

@shemshur · 16.10.2011, 10:53

Можно скопировать в буфер, далее перейти в Photoshop, создать новое изображение и вставить из буфера. А далее сохранять в нужном формате.

@Димит · 16.10.2011, 22:46

Я сохраняю рисунки так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub inFail()
Dim str As String, strFiNa As String, strShNa As String, lH As Long, lW As Long
Dim SStime As Long
    str = ActiveSheet.Name
    If TypeName(Selection) = "Picture" Then
        strFiNa = Application.GetSaveAsFilename(InitialFileName:="NewPicture", FileFilter:="GIF файл,*.gif,JPG файл,*.jpg")
        If strFiNa = "False" Then Exit Sub
        lH = Selection.Height
        lW = Selection.Width
        Selection.Copy
        Charts.Add
        ActiveChart.Location Where:=xlLocationAsObject, Name:=str
        strShNa = ActiveChart.Name
        strShNa = Trim(Replace(strShNa, str, vbNullString))
        ActiveSheet.Shapes(strShNa).Height = lH * 1.01
        ActiveSheet.Shapes(strShNa).Width = lW * 1.01
        DoEvents
        ActiveChart.Paste
        ActiveChart.Export Filename:=strFiNa, FilterName:=Right(strFiNa, 3)
        ActiveSheet.Shapes(strShNa).Delete
    End If
End Sub

@Avtopic · 19.10.2011, 14:13 **[ТС]**

Отсутствовал 2 дня.

To Дмит
Спасибо, приспособил к своей задаче. Все OK. Выручил!

@Денис_zzz · 05.03.2014, 21:43

а как быть если надо сохранить сразу несколько сотен рисунков? есть такая возможность?

Добавлено через 6 минут
хотя, большое количество изображений проще извлечь архиватором, но тогда им присваиваются имена в порядке очередности(image1,image2 и т.д), а не так как задано в ячейке возле рисунка(или не так как он назван в экселе)

@Ilya_Nsk · 08.09.2017, 05:24

некропост
запускаете эту функцию внутри цикла перебора всех рисунков на листе (книге, книгах)

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .

@Avtopic 2 / 2 / 0 Регистрация: 23.04.2011 Сообщений: 159

	На листе находится рисунок; можно ли сохранить этот рисунок из книги, как отдельный bmp или jpg файл? 13.10.2011, 13:26. Показов 3751. Ответов 7 Метки нет (Все метки) 1. На листе находится рисунок. Можно ли, сохранить этот рисунок из книги как отделений Bmp или jpg файл. И еще один вопрос: Можно ли такое: сохранить строку в файле с помощью Write. файл создать с расширением Bmp. и чтобы этот файл откраивался как рисунок (конечно, имеется в виду простой рисунок). То ест, можно ли сымитировать создание файла Bmp формата. 0

@Avtopic 2 / 2 / 0 Регистрация: 23.04.2011 Сообщений: 159
	14.10.2011, 00:30 [ТС]
	To Сумрак: Вашу <Мда> я оценил как реакцию высоко квалифицированного спецялиста. можете наслаждаться. К остальным: Если возможно Replace в Bmp файле, то может и возможно создать строку, в котором происходит Replace и записать в новый файл. 0

@shemshur 0 / 0 / 0 Регистрация: 13.10.2011 Сообщений: 9
	16.10.2011, 10:53
	Можно скопировать в буфер, далее перейти в Photoshop, создать новое изображение и вставить из буфера. А далее сохранять в нужном формате. 0

@Avtopic 2 / 2 / 0 Регистрация: 23.04.2011 Сообщений: 159
	19.10.2011, 14:13 [ТС]
	Отсутствовал 2 дня. To Дмит Спасибо, приспособил к своей задаче. Все OK. Выручил! 0

@Денис_zzz 3 / 3 / 0 Регистрация: 28.03.2013 Сообщений: 15
	05.03.2014, 21:43
	а как быть если надо сохранить сразу несколько сотен рисунков? есть такая возможность? Добавлено через 6 минут хотя, большое количество изображений проще извлечь архиватором, но тогда им присваиваются имена в порядке очередности(image1,image2 и т.д), а не так как задано в ячейке возле рисунка(или не так как он назван в экселе) 0

@Ilya_Nsk 2 / 2 / 2 Регистрация: 19.08.2013 Сообщений: 32
	08.09.2017, 05:24
	некропост запускаете эту функцию внутри цикла перебора всех рисунков на листе (книге, книгах) 0

Сумрак
	13.10.2011, 16:41
	мда...