< návrat zpět
MS Excel
Téma: makro pro vkládání obrázku 
Zaslal/a pajajaja 17.5.2014 18:56
Zdravím, poprosím Vás o radu.
Čeho chci docílit:
Mám složku, ve které se nachází sešit excel a obrázek ve formátu jpg.
Makro by mělo po kliknutí vložit daný obrázek na určité místo v listu sešitu, nevyskakovat výběrové okna- rovnou vložit obrázek.(obrázek si to musí vybrat ve složce kde je otevřený sešit, tak aby se dalo kopírovat na flash a pak zase nazpět do pc)
Čeho jsem zatím docílil:
Po kliknutí mi vyskočí chybová hláška a poté vloží obrázek, ovšem na jiné místo a v jiném formátu.
makro:
Sub Obrazek1()
Dim Bunka As Range, Obrazek As String
Set Bunka = Range(Range("c46").MergeArea.Address)
ActiveSheet.Pictures.Insert (ThisWorkbook.Path & "\" & "OBRÁZEK podpis.JPG")
With Selection
.ShapeRange.Left = Bunka.Left
.ShapeRange.Top = Bunka.Top
.ShapeRange.Height = 10
.ShapeRange.Width = 10
End With
Vidíte někdo chybu prosím?
Děkuji
kp57(18.5.2014 15:04)#019518 
třeba takto
Sub Obrazek1()
Dim Bunka As Range, Obrazek As String
Set Bunka = Range("c46")
With ActiveSheet.Pictures.Insert (ThisWorkbook.Path & "\" & "OBRÁZEK podpis.JPG")
.ShapeRange.Left = Bunka.Left
.ShapeRange.Top = Bunka.Top
.ShapeRange.Height = 10
.ShapeRange.Width = 10
End With
Set Bunka = Nothing
end subcitovatpajajaja(19.5.2014 17:57)#019554 tak to je pecka!!!!
funguje
MOC DÍKY!!!!
citovatZbygi(10.10.2019 14:57)#044513 Ahoj všem.
mám jednoduché makro pro vkládání obrázku.
Cells(x + 10, 7).Select
Pictures.Insert(QRkode).Select
prosím o radu jak obrázku, načteném v QRkode změním(nastavím) velikost.
předem děkuji
citovatZbygi(10.10.2019 22:19)#044535 omlouvám se....
rozpitval jsem si makro výše - a problém vyřešen... děkuji
citovat
RSS nejnovější články