Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
LOGO in der Tabelle
30.09.2014 11:12:43
Riman
Hallo,
ich habe eine Excel Datei mit Makro, die eine CSV Datei importiert und anschließend bearbeitet.
Ich möchte neben die Spaltenüberschrieften in eine Zelle ein Logo(Bild) einfügen.
Das habe ich mit eine Makrorecorder gemacht, das Problem ist, dass an der Stelle LogoEinfügen() das Bild nicht an der Selbe Position ist, oder beim Speichern unter eine andere Datei. Also ich möchte z.b. in spalte "L1" ein LOGO (Bild)drinnen haben, fixiert, dass beim Ausführen der Makro, dass das Bild immer an der selbe Position ist.
Danke
Sub LOGOEinfügen()
' LOGOEinfügen Makro
Columns("L:L").ColumnWidth = 14.57
Range("L1").Select
ActiveSheet.Pictures.Insert( _
"C:\Users\LOGO\Logo.jpg" _
).Select
Selection.Placement = xlMoveAndSize
Selection.ShapeRange.ScaleWidth 0.9359722924, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.9359722924, msoFalse, msoScaleFromTopLeft
Columns("L:L").ColumnWidth = 16
Selection.ShapeRange.ScaleWidth 0.8723401594, msoFalse, msoScaleFromTopLeft
Columns("L:L").ColumnWidth = 18#
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: LOGO in der Tabelle
30.09.2014 13:06:37
fcs
Hallo Riman,
zum Positionieren des Logos innerhalb der Zelle L1 würde ich mit anderen Eigenschaften arbeiten als mit der Skalierung.
Erst die Spaltenbreite setzen, dann das Bild einpassen/positionieren.
Die Probleme mit der Bildposition beim Speichern etc. kann ich nicht nachvollziehen.
Gruß
Franz
Sub LOGOEinfügen()
' LOGOEinfügen Makro
Dim objShape As Shape, Zelle As Range
Columns("L:L").ColumnWidth = 18#
Set Zelle = Range("L1") 'Einfügezelle für Bild
Zelle.Select
Set objShape = ActiveSheet.Shapes(ActiveSheet.Pictures.Insert( _
"C:\Users\LOGO\Logo.jpg").Name)
With objShape
.Placement = xlFreeFloating ' oder xlMove
.LockAspectRatio = msoTrue
.Width = Zelle.Width - 4
.Left = Zelle.Left + 2
.Top = Zelle.Top + 1
End With
End Sub

Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige