MS Excel

Ja by som to dal takto nejako, kde si možno zvoliť jasné 2 parametre.
Public Function QRX(CielBunka As Range, Hodnota As String)
VmazStaryQR CielBunka
If Hodnota <> "" Then
With CielBunka.Parent.Pictures.Insert("http://chart.apis.google.com/chart?chs=150x150&cht=qr&chl=" & Replace(Hodnota, " ", "%20") & "&choe=ISO-8859-1/chart.png")
.Name = "QR_" & CielBunka.Address(0, 0)
.Left = CielBunka.Left
.Top = CielBunka.Top
End With
End If
QRX = "OK"
End Function

Public Sub VmazStaryQR(CielBunka As Range)
On Error Resume Next
CielBunka.Parent.Shapes("QR_" & CielBunka.Address(0, 0)).Delete
End Sub

1 Cieľová bunka - kde sa má zobraziť QR
2 Zdrojová hodnota - je jedno či vzorec či odkaz na inú bunku

Veď je to banálne jednoduché. No a ak by sa mal QR vkladať do bunky z ktorej je QRX funkcia volaná, tak by sa to vyriešilo drobučkou úpravou kódu, keď by sa použil kvôli circular reference, odkaz na referenčnú bunku napr. vpravo od nej, a cez Offset by sa získala správna adresa.

Keby dal prílohu má to dávno hotové.citovat

ahoj všem
zas jeden užitečnej kód :)
ale potřeboval bych s ním trošku pomoct.
vše jsem si překopčil předěl atd - a funguje, ale
vygeneruje se mi jiný kód než bych potřeboval... nemám čtečku (teď) tak možná je stejný, ale i přesto jak je to možný, že na stejný text je tolik různých kódů?
a můžu docílit stejného kódu jako ten který potřebuju?
soubor je překopanej tak to moc neřešte
Jen jestli se tam dá nastavit víc věcí než jen formát QRkódu (L M H Q)citovat

Já bohužel ty parametry také neznám.
vyřešil jsem to tak že to funguje a víc asi řešit nebudu. čtečka to načte kód se zobrazuje tak není co řešit.
Ale děkuji za odpověď

PS: obrázek by neměl být propojený... pro jistotu posílám znovucitovat

já to pořešil takto

For i = 1 To 4
Cells(x, 1).Select
Pictures.Insert adresa & nazev
Cells(x, 11).Select
Pictures.Insert adresa & nazev
x = x + 18
Next icitovat

_____________________________________________

Chcel by som Vás poprosiť o pomoc.
Potreboval by som upraviť nižšie uvedené makro tak aby:

- hodnoty zadávam do stĺpca "A"
- vygenerovaný QR potrebujem v stĺpci "B"
- keď zmením napríklad bunku "A1", potrebujem aby sa mi pred tým vygenerovaný QR kód zmazal a nahradil ho nový s novou hodnotou
- toto potrebujem v každom riadku

Išlo by to prosím nejako ?

Ďakujem.
______________________________________________________
Public Sub QR()
Dim TEXT As String
TEXT = InputBox("Zadej obsah QR kódu", "Google QR", "QR")
If TEXT <> "" Then
ActiveSheet.Pictures.Insert("http://chart.apis.google.com/chart?chs=150x150&cht=qr&chl=" & Replace(TEXT, " ", "%20") & "&choe=ISO-8859-1/chart.png").Select
Selection.Name = "QR_" & Left(TEXT, 8)
End If
End Sub
____________________________________________________
Public Function QRX(T As String)
TEXT = T
'T.ClearContents

If TEXT <> "" Then
ActiveSheet.Pictures.Insert("http://chart.apis.google.com/chart?chs=100x100&cht=qr&chl=" & Replace(TEXT, " ", "%20") & "&chld=L|0&choe=ISO-8859-1/chart.png").Select
Selection.Name = "QR_" & Replace(ActiveCell.Address, "$", "")
' Selection.Left = T.Left
' Selection.Top = T.Top
Selection.Left = Range("C3").Left
Selection.Top = Range("C3").Top

'Rows(CSng(T.Row) & ":" & CSng(T.Row)).RowHeight = CSng(Selection.Height)
End If
QRX = "OK"
End Functioncitovat