< návrat zpět

MS Excel


Téma: makro pro vkládání obrázku rss

Zaslal/a 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

Zaslat odpověď >

#019518
avatar
třeba taktoSub 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 sub
citovat
#019554
avatar
tak to je pecka!!!!
funguje
MOC DÍKY!!!! 1citovat
#044513
avatar
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ěkujicitovat
#044535
avatar
omlouvám se....
rozpitval jsem si makro výše - a problém vyřešen... děkuji 9citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse