< návrat zpět
MS Excel
Téma: přidat obrázek do formu ![rss](./plugins/templates/wall_2C/images/icons/rss.png)
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 )
Fantasyk(15.11.2020 14:48)#048874 ![Fantasyk](./pictures/avatars/5f85150ecaaad.jpg)
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 ![Fantasyk](./pictures/avatars/5f85150ecaaad.jpg)
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
![4](./plugins/templates/wall_2C/images/smileys/4.gif)
i když mu definuji přesnou cestu odkud to má načíst
citovat
Fantasyk(18.11.2020 23:03)#048931 ![Fantasyk](./pictures/avatars/5f85150ecaaad.jpg)
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