• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: přidat obrázek do formu

Zaslal/a Fantasyk 15.11.2020 13:55

Zdravím,
už 5 hodin se trápím a nejde mi dát obrázek fo formu..
Uloží se mi obrázek grafu na disk a tím jsem skončil.

Private Sub UserForm_Initialize()

Dim Dateiname As String, Graf As Chart
Set Graf = Sheets("Vyhledat").ChartObjects("Graf 7").Chart
Dateiname = ThisWorkbook.Path & "\graf.gif"
Graf.Export Filename:=Dateiname, FilterName:="GIF"
Image1.Picture = LoadPicture(Dateiname)
Sheets("Lisy - Vedouci smen").Select

End Sub


nevíte kde dělám chybu ?
Píše mi to chybu u:
Image1.Picture = LoadPicture(Dateiname)

Moc moc moc prosím.. ( přílohu bohužel nemůžu dát )

Zaslat odpověď >

---

Fantasyk(15.11.2020 14:48)#048874

EDIT:
tak jsem to nakonec zmastil takhle:

Private Sub UserForm_Initialize()

Dim Dateiname As String, Graf As Chart
Set Graf = Sheets("Vyhledat").ChartObjects("Graf 7").Chart
Dateiname = ThisWorkbook.Path & "\graf.gif"
Graf.Export Filename:=Dateiname, FilterName:="GIF"
'Image1.Picture = LoadPicture(Dateiname)
Sheets("Lisy - Vedouci smen").Select
'Add Dynamic Image and assign it to object 'Img'
Set Img = UserForm2.Controls.Add("Forms.Image.1")

With Img
'Load Picture to Image Control
.Picture = LoadPicture(Dateiname)

'Align the Picture Size
'.PictureSizeMode = fmPictureSizeModeStretch
.Width = 717
.Height = 460
'Image Position
.Left = 20
.Top = 100
End With
End Subcitovat

Fantasyk(15.11.2020 16:33)#048875

ale teď jsem narazil na problém, když to mám na svém disku tak to funguje, ale když soubor přesunu na firemní server tak tam to graf.gif uloží, ale nenačte ho
i když mu definuji přesnou cestu odkud to má načístcitovat

Fantasyk(18.11.2020 23:03)#048931

Tak nakonec jsem si to vyřešil sám -> v cestě nesmí být mezera a diakritika u jedné složky to tak bylo proto to nejelo...citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse