Сохранить QR код в файл

Дата: Среда, 18.12.2019, 11:43 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Создаю QR код с помощью

[vba]

Код

Dim text As Variant
text = Cells(1, 1)
ActiveSheet.Pictures.Insert ("https://chart.googleapis.com/chart?cht=qr&chs=150x150&chl=" & text)

[/vba]

Как этот QR код сохранить в файл .jpg?

Дата: Среда, 18.12.2019, 11:53 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

https://yandex.ru/search....&lr=213

Оттуда
https://www.excel-vba.ru/chto-um....nki-jpg
https://excelvba.ru/code/ExportPictures
https://legkovopros.ru/questio....plicate

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

https://legkovopros.ru/questio....plicate

Дата: Среда, 18.12.2019, 11:59 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

_Boroda_,

Цитата

этот вариант близок, но не могу его адаптировать под свою задачу (видимо очень просто, но я новичок)

Сообщение отредактировал Ilya40 - Среда, 18.12.2019, 12:01

Дата: Среда, 18.12.2019, 12:09 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

И? Что дальше нужно сделать, как Вы думаете?

Дата: Среда, 18.12.2019, 12:33 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Есть множество вариантов

Дата: Среда, 18.12.2019, 13:01 | Сообщение № 6

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Например?
Рассматриваете такой - прислать за мной машину, довезти до офиса и там показать файл? Или может, все-таки здесь покажете?

Дата: Среда, 18.12.2019, 13:13 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Можно и с машиной)))
Только мне нечего показывать
Может я не очень корректно задаю вопрос, но у меня есть вариант вставки QR кода в активную ячейку, а мне надо сохранить в файл.
По ссылкам на самом деле первая ближе.

Дата: Среда, 18.12.2019, 14:12 | Сообщение № 8

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Вообще не вдаваясь в подробности, просто тупо вставка одного кода вовнутрь другого (ну и выделение картинки дописал)
[vba]

Код

Sub tt()
Text = Cells(1, 1)
ActiveSheet.Pictures.Insert ("https://chart.googleapis.com/chart?cht=qr&chs=150x150&chl=" & Text)
ActiveSheet.Pictures(ActiveSheet.Pictures.Count).Select
Dim sName As String, oObj As Object, wsTmpSh As Worksheet
If VarType(Selection) <> vbObject Then
MsgBox "Выделенная область не является объектом!", vbCritical, "Ха-ха!!!"
Exit Sub
End If
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set oObj = Selection: oObj.Copy
Set wsTmpSh = ThisWorkbook.Sheets.Add
sName = ActiveWorkbook.FullName & "_" & ActiveSheet.Name & "_" & oObj.Name
With wsTmpSh.ChartObjects.Add(0, 0, oObj.Width, oObj.Height).Chart
.ChartArea.Border.LineStyle = 0
.Parent.Select
.Paste
.Export Filename:=sName & ".gif", FilterName:="GIF"
.Parent.Delete
End With
wsTmpSh.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

[/vba]