Der Ausdruck Shapes("Rechteck 1").Visible = True ist in Excel-VBA nicht korrekt, da das Visible-Eigenschaftsmerkmal für Shapes in Excel-VBA nicht existiert. In Excel-VBA steuerst du d...
Excel Bild in Spalte A, Bildname in Spalte B speichern unter Bildname auf PC mit VBA?
Antwort vomUm ein Bild in Excel zu speichern, das in Spalte A eingefügt ist, den Bildnamen aus Sp B zu verwenden, kannst du den folgenden VBA-Code verwenden. Dieser Code durchläuft die Zeilen deinem Arbeitsblatt, speichert jedes Bild unter dem entsprechenden Namen in Spalte B und speichert es im angegebenen Verzeichnis. Hier ist ein Beispielcode: ```vba Sub BilderSpeichern() Dim ws As Worksheet Dim pic As Picture Dim bildName As String Dim speicherPfad As String Dim i As Integer ' Arbeitsblatt festlegen Set ws = ThisWorkbook.Sheets("Tabelle1") ' Ändere den Namen entsprechend ' Speicherpfad festlegen speicherPfad = "C:\Dein\Speicherpfad\" ' Ändere den Pfad entsprechend ' Durchlaufe alle Bilder in der Tabelle For i = 1 To ws.Pictures.Count Set pic = ws.Pictures(i) ' Bildname aus Spalte B holen bildName = ws.Cells(pic.TopLeftCell.Row, 2).Value ' Bild speichern pic.Copy With CreateObject("Word.Application") .Visible = False .Documents.Add .Selection.Paste .ActiveDocument.SaveAs2 speicherPfad & bildName & ".jpg", 17 ' 17 steht für JPEG .ActiveDocument.Close False .Quit End With Next i MsgBox "Bilder wurden gespeichert!" End Sub ``` ### Hinweise: 1. **Speicherpfad anpassen**: Ändere den `speicherPfad` zu dem gewünschten Speicherort auf deinem PC. 2. **Tabellenname anpassen**: Stelle sicher, dass der Tabellenname in `Set ws = ThisWorkbook.Sheets("Tabelle1")` korrekt ist. 3. **Dateiformat**: Der Code speichert die Bilder im JPEG-Format. Du kannst das Format ändern, indem du den Parameter in der `SaveAs2`-Methode anpasst. Um den Code auszuführen, öffne den VBA-Editor in Excel (Alt + F11), füge ein neues Modul hinzu und kopiere den Code dort hinein. Danach kannst du das Makro ausführen.
Verwandte Fragen
Ist folgender Excel-VBA-Code korrekt: HeightPt = Rows("4:" & Cells(49,19).Row).Height?
Der gezeigte Code ist in Excel-VBA nicht korrekt und führt zu einem Fehler. Das Problem liegt in der Syntax innerhalb der Rows-Funktion. Hier die Analyse: Dein Code: vba HeightPt = Rows("4:...
Wie kann man in Excel-VBA einen RGB-Code aus einer Zelle lesen?
Um in Excel-VBA einen RGB-Code aus einer Zelle zu lesen und diesen z.B. für die Füllfarbe eines Shapes zu verwenden, kannst du wie folgt vorgehen: Angenommen, in Zelle A1 steht der RGB-Code...
Ist der Code wert = Range("Ergebnisse[Gab Bauteil lang]").Value in VBA fehlerfrei?
Der Code wert = Range("Ergebnisse[Gab Bauteil lang]").Value ist in VBA nicht fehlerfrei, wenn du auf eine Excel-Tabelle mit strukturierten Verweisen (Tabellenreferenzen) zugreifen möcht...
Kann man Private Sub Workbook_SheetBeforeRightClick in Private Sub Workbook_Open integrieren?
Nein, das ist nicht möglich. In VBA (Visual Basic for Applications) sind WorkbookOpen und WorkbookSheetBeforeRightClick zwei eigenständige Ereignisprozeduren (Event Handler), die jeweils auf...
Gibt es If Not (Bedingung) Then in VBA für Excel?
Ja, in VBA für Excel gibt es die Möglichkeit, eine Bedingung mit If Not (Bedingung) Then zu prüfen. Das Schlüsselwort Not kehrt die Bedingung um. Hier ein Beispiel: vba If Not IsE...
Ist 'Range(Cells(a,10):Cells(b,10)).Copy' im VBA-Code korrekt?
Die Syntax Range(Cells(a,10):Cells(b,10)).Copy ist in VBA (Visual Basic for Applications) nicht korrekt. In VBA muss der Bereich innerhalb der Range-Funktion als String oder als zwei separate Range-Ob...
Wie kann ich mit VBA den Bereich 'Test' in Blatt 1 kopieren und in Blatt 2 ab Zelle B18 einfügen?
Um in Excel mit VBA einen Bereich namens "test" aus Blatt 1 zu kopieren und in Blatt 2 ab Zelle B18 einzufügen, kannst du folgenden VBA-Code verwenden: vba Sub BereichKopieren() '...
Wie kann man Zahlen in Excel-VBA ohne wissenschaftliches Format in eine .txt-Datei schreiben?
Um Zahlen wie 6,9999999999 in Excel-VBA beim Schreiben in eine .txt-Datei nicht im wissenschaftlichen Format (z. B. 6,9999999999E+00), sondern exakt so wie sie sind (mit allen Nachkommastellen), zu sp...
Wie lautet die Syntax, um in Excel VBA ein bestimmtes Tabellenblatt zu aktivieren?
Um in Excel VBA ein bestimmtes Tabellenblatt zu aktivieren, verwendest du folgende Syntax: vba Worksheets("Tabellenblattname").Activate Ersetze dabei "Tabellenblattname" durch d...
