MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 09.02.2018, 07:09   #16
BrunMi
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo zusammen,

@gomero: ich steh gerade ein bisschen auf der Leitung. Wie kann ich bei dem Befehl ein Template mitliefern?

@Jones: Interessanterweise hat das Bild jetzt eine Größe von 3921KB - das Original hat aber nur 103KB..
Das Bild ist eingebettet - einen Screenshot der Einstellungen im Access findest du im Anhang.

Vielleicht hab ich ja, wenn mich das auch wundern würde, einen Fehler beim Zugriff gemacht..

Die Funktion hab ich einfach von dir kopiert - also

Code:

Public Sub SaveAccessImage(sPath As String, bPicture() As Byte)

Open sPath For Binary Access Write As 1
Put 1, , bPicture
Close 1

End Sub
und der Zugriff sieht so aus:

Code:

Private Sub btnTest_Click()
    SaveAccessImage "C:TempLogo.jpg", Me.pic_Logo.PictureData
End Sub
Das sollte doch eigentlich passen, oder?

LG
BrunMi
Angehängte Grafiken
Dateityp: jpg Info_Forum.JPG (69,5 KB, 4x aufgerufen)

__________________

Wenn Gott wollen würde, dass man USB Sticks sicher entfernt, würde es sicher in der Bibel stehen.
BrunMi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 07:29   #17
el_gomero
MOF Koryphäe
MOF Koryphäe
Standard

Moinsen,

Zitat:

@gomero: ich steh gerade ein bisschen auf der Leitung. Wie kann ich bei dem Befehl ein Template mitliefern?

Lustig, wie man manchmal den Wald ... -> nicht dem Befehl, sondern der db. Das Excel-template legst du zB in einem Unterordner deiner db ab. Mach ich in einer Anwendung auch so und funzt prima.

__________________

Gruß
Jürgen
el_gomero ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 08:51   #18
CatboyJones
MOF User
MOF User
Standard

> Das sollte doch eigentlich passen, oder?
Jepp!

Anbei mal eine Demo-DB, die bei mir funzt.
A16_SaveImageControl.zip
CatboyJones ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 09:03   #19
daolix
MOF User
MOF User
Standard

Hallo

der vorschlag von jones dürfte nur funktionieren wenn du eine neuere version von access verwendest und die einstellung für die bildspeicherung auf "quellformat beibehalten" steht. die grösse der exportierten datei lässt vermuten das die bilder bei dir automatisch in bmps konvertiert werden (altes speicherformat für bilder).

__________________

(K)ein Plan von nix
daolix ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 09:13   #20
Kyron9000
MOF Koryphäe
MOF Koryphäe
Standard

Hallo,

Vorschlag: erstelle eine Excel-Vorlage, füge in einen Ordner das/ein Bild ein und gib den Speicherort bekannt:
Code:

Public Sub AddPic(savePath As String, picPath As String)
Dim oExcel As Object
Dim wbook  As Object
Dim wsheet As Object
    Set oExcel = CreateObject("Excel.Application")
    Set wbook = oExcel.Workbooks.Add("C:\Test\Vorlage.xltx") ' Excel-Vorlage
    Set wsheet = wbook.Worksheets(1)
    With wsheet.Pictures.Insert(picPath) ' Bilddatei
        .Height = 50# ' Größe anpassen
        .Width = 50#
        .Top = wsheet.Cells(1, 1).Top ' wo soll es eingefügt werden
        .Left = wsheet.Cells(1, 1).Left
    End With
        wbook.SaveAs (savePath) ' Speichern unter
        wbook.Close
    Set oExcel = Nothing
    Set wbook = Nothing
    Set wsheet = Nothing
' Aufruf: AddPic "C:\Test\Test_V1.xlsx", "C:\Test\LogosDeinBilf.jpg"
End Sub

__________________

Gruß Alfred
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 10:32   #21
CatboyJones
MOF User
MOF User
Standard

> wenn du eine neuere version von access verwendest
Ab Access 2007.
CatboyJones ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 11:17   #22
daolix
MOF User
MOF User
Standard

Zitat: von CatboyJones Beitrag anzeigen

> wenn du eine neuere version von access verwendest
Ab Access 2007.

Genau, aber mdb's, erstellt oder vorhanden, speichern eingebette bilder per default erstmal im alten format.

__________________

(K)ein Plan von nix
daolix ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 14:52   #23
CatboyJones
MOF User
MOF User
Standard

Zitat:

Genau, aber mdb's, erstellt oder vorhanden, speichern eingebette bilder per default erstmal im alten format.

Jepp, der Hinweis war gut, und hier wohl auch des Rätsels Lösung.

Man könnte natürlich auch das Bitmap speichern, da muss man nur den
FileHeader vorne anfügen. Ob es aber ratsam ist, hier BMPs zu speichern
sei dahingestellt.
CatboyJones ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:23 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.