Kopie obrázku na jiném listu Vyřešeno

[Snekment]

Dobrý den,
mám toto macro na vybrání a vložení obrázku

Private Sub Image1_Click()
If (MsgBox("Chcete načíst novou fotku?", vbYesNo + vbDefaultButton2)) = vbNo Then Exit Sub
On Error Resume Next
Dim umisteni As String
opakuj:
umisteni = Application.GetSaveAsFilename("\\Filesrv\zlutysanon_vaclavak\foto\")
If umisteni <> "" Then
Image1.Picture = LoadPicture(umisteni)
Image1.PictureSizeMode = fmPictureSizeModeStretch
End If
End Sub

Potřebuji aby při načtení obrazku se tento načtený obrázek zobrazil ještě na jiném listu .
Je to možné ?
Děkuji

[Reklama]

[cmuch]

Pokud to chceš zase do prvku IMAGE na jiném listu tak přidej

Kód: Vybrat vše

Sheets("nazev").Image2.Picture = LoadPicture(umisteni)
Sheets("nazev").Image2.PictureSizeMode = fmPictureSizeModeStretch

[Snekment]

Ano chci to zase do prvku image ,ale jsem tupoň . :-)

Sheets("nazev").Image2.Picture = LoadPicture(umisteni)
Sheets("to je název původního obrázku?")."to je název nově vloženého obrázku?".Picture = LoadPicture(umisteni)

A vlozim to na konec toho macra co jsem posílal nebo jako nové macro ke konečnému obrázku ??

[cmuch]

Sheets("nazev").Image2.Picture = LoadPicture(umisteni)
Sheets("nazev").Image2.PictureSizeMode = fmPictureSizeModeStretch

"nazev" je název listu na který to chceš vložit
2 je číslo za prvkem image - nebo co tam máš ty, to tam napíšeš

Kód: Vybrat vše

Private Sub Image1_Click()
If (MsgBox("Chcete načíst novou fotku?", vbYesNo + vbDefaultButton2)) = vbNo Then Exit Sub
On Error Resume Next
Dim umisteni As String
umisteni = Application.GetSaveAsFilename("\\Filesrv\zlutysanon_vaclavak\foto\")
If umisteni <> "" Then
Image1.Picture = LoadPicture(umisteni)
Image1.PictureSizeMode = fmPictureSizeModeStretch
Sheets("nazev").Image2.Picture = LoadPicture(umisteni)
Sheets("nazev").Image2.PictureSizeMode = fmPictureSizeModeStretch
End If
End Sub

[Snekment]

Děkuji moc funguje to !! Moc děkuji