Otázka ako brno - Šenkvice, príloha chýba cca 12hodín.. asi odpoveď už je jasná ..citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Ako dostat z suboru thumbnail
MS Excel
Téma: Ako dostat z suboru thumbnail 
Zaslal/a Palooo 5.4.2016 17:20
Jedna sa o uvodny obrazok co ukazuje zamisto ikony suboru. Takyto subor sa nachadza v powerpointe subore. Ked premenujete subotr na zip tak tam ho najdete.
a moja otazka znie ako tento subor zobrazit v imageboxe .... vie niekto ako nato?? na intewrnete som nasiel len platen aplikacie nic free
k tomuto priloha ani nejde dat ale mozem dat obrazok o co mi vlasne ide.
.... zobrazovanie tohoto obrazku je mi podstatne jedno kde ten kod by som aj tak nakoniec chcel pouzit v visual studio 2015
hadam to bude teraz jasnejsie
keby ste mali este nejake otazky pytajte sa :) stale som nato nedosielcitovat
.... zobrazovanie tohoto obrazku je mi podstatne jedno kde ten kod by som aj tak nakoniec chcel pouzit v visual studio 2015
hadam to bude teraz jasnejsie
keby ste mali este nejake otazky pytajte sa :) stale som nato nedosielcitovat
30997_untitled.png
tak uz som to vyresil :)
je to pisane v visual studio a treba tam dodat referencie na:
System.IO.Compression
System.IO.Compression.FileSystem
aj ked ich Importnete tak to nebude stacit musite ich tam dodat cez Project/add reference
a program funguje takto
Imports System.Drawing
Imports ppt = Microsoft.Office.Interop.PowerPoint
Imports System.IO
Imports System.IO.Compression
Public Class atest
Dim pres As ppt.Presentation
Dim bmp As Bitmap
Dim sld As ppt.Slide
Private Sub atest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim zipPath As String = "C:\Data\PowerPoint 2016\Presentations\test.potx"
Dim entry As ZipArchiveEntry
Dim MS As MemoryStream
Using archive As ZipArchive = ZipFile.OpenRead(zipPath)
entry = archive.GetEntry("docProps/thumbnail.jpeg")
MS = New MemoryStream
Using stmZip As Stream = entry.Open
stmZip.CopyTo(MS)
End Using
PictureBox1.Image = Image.FromStream(MS)
End Using
End Sub
End Classcitovat
je to pisane v visual studio a treba tam dodat referencie na:
System.IO.Compression
System.IO.Compression.FileSystem
aj ked ich Importnete tak to nebude stacit musite ich tam dodat cez Project/add reference
a program funguje takto
Imports System.Drawing
Imports ppt = Microsoft.Office.Interop.PowerPoint
Imports System.IO
Imports System.IO.Compression
Public Class atest
Dim pres As ppt.Presentation
Dim bmp As Bitmap
Dim sld As ppt.Slide
Private Sub atest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim zipPath As String = "C:\Data\PowerPoint 2016\Presentations\test.potx"
Dim entry As ZipArchiveEntry
Dim MS As MemoryStream
Using archive As ZipArchive = ZipFile.OpenRead(zipPath)
entry = archive.GetEntry("docProps/thumbnail.jpeg")
MS = New MemoryStream
Using stmZip As Stream = entry.Open
stmZip.CopyTo(MS)
End Using
PictureBox1.Image = Image.FromStream(MS)
End Using
End Sub
End Classcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články