Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild konvertieren

Forumthread: Bild konvertieren

Bild konvertieren
28.01.2005 08:33:15
Reinhold
Hi Leute,
mittels LoadPicture kann ich ein Bild (*.jpg, *.gif, *.tif) in ein XL- sheet importieren.
Beim Importieren eines Bildes in ein Picture- Control einer UserForm geht das leider nicht für tif- Formate, während z.B. *.jpg und *.gif funktionieren.
Weiss jemand, wie ich in VBA eine tif- Datei in eine jpg oder gif- Datei konvertieren kann und ob ich in vba überhaupt erkenne, ob eine Datei eine tif- Datei ist oder muß ich die Endung .tif abfragen!
Herzlichen Dank für euer Hilfe
Reinhold
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild konvertieren
28.01.2005 10:18:44
Nepumuk
Hallo Reinhold,
mit folgendem Code kannst du ein Bid in einer Exceltabelle als JPG exportieren.


Option Explicit
Sub Bild_exportieren()
    Dim myChart As Chart, myChartObject As ChartObject, myShape As Shape
    Dim bolfound As Boolean
    Application.ScreenUpdating = False
    For Each myShape In ActiveSheet.Shapes
        If myShape.Type = msoPicture Then bolfound = True: Exit For
    Next
    If bolfound Then
        myShape.CopyPicture Appearance:=xlScreen, Format:=xlPicture
        Set myChart = Charts.Add
        Set myChartObject = ActiveChart.ChartObjects.Add(0, 0, myShape.Width - myShape.Width / 100 * 8, myShape.Height - myShape.Height / 100 * 8)
        With myChartObject.Chart
            .Paste
            .Export Filename:=ActiveWorkbook.Path & "\zwischenablage.jpg", FilterName:="JPG", Interactive:=False
        End With
        Application.DisplayAlerts = False
        myChart.Delete
        Application.DisplayAlerts = True
        Set myChart = Nothing
        Set myChartObject = Nothing
        Set myShape = Nothing
        Application.ScreenUpdating = True
    End If
End Sub


Gruß
Nepumuk
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige