0
0

Dobrý den, chtěl bych Vás poprosit o přepsání VBA kódu tak, aby vložený obrázek zůstal součásti sešitu i v případě otevření na jiném PC. Vím, že to musí být vloženo jako Shapes a ne jako Picture, ale VBA nerozumím a nedaří se mi kód upravit do funkční podoby. Předem velice děkuji.

Sub GetFOTO()
Dim fNameAndPath As Variant
Dim img As Picture
fNameAndPath = Application.GetOpenFilename(Title:="Select Picture To Be Imported")
If fNameAndPath = False Then Exit Sub
Set img = ActiveSheet.Pictures.Insert(fNameAndPath)
With img
'Resize Picture to fit in the range....
.Left = ActiveSheet.Range("A8").Left
.Top = ActiveSheet.Range("A8").Top
.Width = ActiveSheet.Range("A8:N8").Width
.Height = ActiveSheet.Range("A8:A31").Height
.Placement = 1
.PrintObject = True
End With
End Sub

Marked as spam
Odeslal Masako
Otázka položena 31.1.2021 8:00
22 views
0
Private answer

myslím tak, jak je popsané v 2.případě
http://learnexcelmacro.com/wp/2013/06/insert-a-picture-in-excel-using-vba/

Marked as spam
Odeslal Masako
Odpověděl 31.1.2021 8:49

Odešlete svou odpověď

Attach YouTube/Vimeo clip putting the URL in brackets: [https://youtu.be/Zkdf3kaso]