Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сохранить QR код в файл - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранить QR код в файл (Макросы/Sub)
Сохранить QR код в файл
Ilya40 Дата: Среда, 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?
 
Ответить
СообщениеСоздаю 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?

Автор - Ilya40
Дата добавления - 18.12.2019 в 11:43
_Boroda_ Дата: Среда, 18.12.2019, 11:53 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15946
Репутация: 6201 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Ilya40 Дата: Среда, 18.12.2019, 11:59 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_,


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


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


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

Автор - Ilya40
Дата добавления - 18.12.2019 в 11:59
_Boroda_ Дата: Среда, 18.12.2019, 12:09 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15946
Репутация: 6201 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
И? Что дальше нужно сделать, как Вы думаете?


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

Автор - _Boroda_
Дата добавления - 18.12.2019 в 12:09
Ilya40 Дата: Среда, 18.12.2019, 12:33 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Есть множество вариантов
 
Ответить
СообщениеЕсть множество вариантов

Автор - Ilya40
Дата добавления - 18.12.2019 в 12:33
_Boroda_ Дата: Среда, 18.12.2019, 13:01 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15946
Репутация: 6201 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Например?
Рассматриваете такой - прислать за мной машину, довезти до офиса и там показать файл? Или может, все-таки здесь покажете? :D :D :D


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНапример?
Рассматриваете такой - прислать за мной машину, довезти до офиса и там показать файл? Или может, все-таки здесь покажете? :D :D :D

Автор - _Boroda_
Дата добавления - 18.12.2019 в 13:01
Ilya40 Дата: Среда, 18.12.2019, 13:13 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Ilya40
Дата добавления - 18.12.2019 в 13:13
_Boroda_ Дата: Среда, 18.12.2019, 14:12 | Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15946
Репутация: 6201 ±
Замечаний: 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]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВообще не вдаваясь в подробности, просто тупо вставка одного кода вовнутрь другого (ну и выделение картинки дописал)
[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]

Автор - _Boroda_
Дата добавления - 18.12.2019 в 14:12
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранить QR код в файл (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!