Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verschieben einer Grafik wird nicht aufgezeichnet

Verschieben einer Grafik wird nicht aufgezeichnet
Heinz
Hallo Excelfreunde,
ich habe versucht, eine Grafik zu kopieren und einzufügen - OK, wird aufgezeichnet.
Da diese Grafik aber linksbündig in der Zelle eingefügt wird, habe ich sie in die Mitte von zwei Spalten geschoben. Das hat der Macrorecorder aber nicht aufgezeichnet - wie von xl2003 gewohnt. Gibt's da vielleicht eine Einstellung?
Warum? Wie kriege ich die Grafik per VBA in die Mitte eines Bereichs?
Vielen Dank
Heinz

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Zeig mal den .Add Code
17.11.2010 20:43:36
Renee
Heinz,
Soll die addierte Grafik mittig der Spalte und der folgenden Spalte verschoben werden oder zwischen 2 ganz bestimmte (fixe) Spalten ?
GreetZ Renée
AW: Zeig mal den .Add Code
17.11.2010 22:08:58
Heinz
Hallo Renée,
hier der Code:
Sub Bildeinfügen()
Dim ws As Worksheet, wsK As Worksheet, BildNr
Set wsK = ThisWorkbook.Worksheets("Karten 3")
Application.ScreenUpdating = False
BildNr = InputBox("Welches Bild soll eingefügt werden?", "Bild-Nummer")
If BildNr = "" Or BildNr  5 Then Exit Sub
'*** altes Bild löschen
On Error Resume Next
wsK.Shapes("MBild").Delete
On Error GoTo 0
Select Case BildNr
Case Is = 1
wsK.Shapes("Eins 2").Copy
Case Is = 2
wsK.Shapes("Zwei 2").Copy
Case Is = 3
wsK.Shapes("Drei 2").Copy
Case Is = 4
wsK.Shapes("Vier 1").Copy
Case Is = 5
wsK.Shapes("Fünf 1").Copy
End Select
wsK.Activate
Range("A3").Select
wsK.Paste
Application.ScreenUpdating = True
Selection.Name = "MBild"
Range("A3").Select
End Sub
Das Bild sollte mittig über Spalte A und B zu sehen sein.
Gruß
Heinz
Anzeige
verschieben Grafik, mittig 2Spalten
18.11.2010 09:02:45
Renee
Hallo Heinz,
Füge nach Selection.Name = "MBild" ein: 
    With ActiveSheet.Shapes("MBild")
.Left = (.TopLeftCell.Left + (.TopLeftCell.Width - (.Width / 2)))
End With
GreetZ Renée
AW: verschieben Grafik, mittig 2Spalten
18.11.2010 12:32:02
Heinz
Hallo Renée,
vielen Dank, ich werde es gleich probieren
Gruß
Heinz
AW: verschieben Grafik, mittig 2Spalten
18.11.2010 12:59:59
Heinz
Hallo Renée,
danke, es funktioniert.
Ganz blicke ich nicht dahinter. Was ist wenn ich 3 oder mehrere Spalten verbinde?
Danke
Heinz
Da muss nix verbunden werden!
18.11.2010 13:34:34
Renee
Heinz,
Für das Positionieren, müssen keine Spalten/Zellen verbunden werden!!
Wenn du mittig der nächsten Spalte positionieren willst, dann addier einfach die Hälfte derer Breite dazu: 
With ActiveSheet.Shapes("MBild")
.Left = (.TopLeftCell.Left + (.TopLeftCell.Width - (.Width / 2)) _
+ .TopLeftCell.Offset(1).Width / 2)
End With

GreetZ Renée
Anzeige
AW: Da muss nix verbunden werden!
18.11.2010 13:58:54
Heinz
Hallo Renée,
danke schön.
Jetzt ist die Sache klar.
Schönen Tag noch
Heinz

301 Forumthreads zu ähnlichen Themen

VBA: Logo in die Kopfzeile
WalterK

Hallo,
folgenden Code habe ich im Forum gefunden, allerdings sollte er für meine Zwecke abgeändert werden.
1.) Der Code den ich brauchte sollte ein Bild in die linke obere Kopfzeile aller in der Arbeitsmappe vorhandenen Blätter kopieren (auch bei Blättern, die neu hinzukommen).
2. D...
25.09.2008 14:11:11
Thread-ID: 1012333
3 Beiträge
Anzeige
Grafik in Kopfzeile
Gordon

Moin moin,
wie ich inzwischen erfahren habe, kann man bei Excel 2000 keine Grafiken in der Kopfzeile einfügen. Dieses soll erst ab Excel 2003 gehen.
Daher mal zwei Fragen:
1.
Wenn ich nun per Excel 2003 eine Datei erstelle, wo halt die Kopfzeile eine Grafik enthält, und diese d...
24.02.2009 10:18:10
Thread-ID: 1053380
9 Beiträge
Problem: Grafik in die Kopfzeile einbinden
Gordon

Moin moin,
ich arbeite derzeit mit Excel 2000 und schreibe an einer Datei, aus der später eine neue Datei generiert wird. Die neue Datei soll in der linken Zeil der Kopfzeile ein Logo (logo.jpg) enthalten.
Ich weiß, dass wenn man das Makro zur Generierung unter Excel 2000 ausführt, das...
04.03.2009 21:03:12
Thread-ID: 1056580
3 Beiträge
Anzeige
wenn Bild hinterlegt, geht nichts mehr (Userform)
Reinhard

Hallo zusammen
ich habe folgende Userform Die Datei https://www.herber.de/bbs/user/61474.xls wurde aus Datenschutzgründen gelöscht
diese funktioniert einwandfrei!
wenn ich aber als Hintergrund ein Image (Anzeige) hinterlege, funktioniert nichts mehr. Wieso ist das so?
kann man...
29.04.2009 08:10:29
Thread-ID: 1071763
4 Beiträge
Grafik in Kopfzeile gelöscht; wie wieder einfügen?
abdipost

Hallo zusammen,
habe aus einem Tabellenblatt in einer Excel-Mappe die Grafik aus der Kopfzeile gelöscht.
Die Grafik habe ich nicht als Datei vorliegen.
Wie bekomme ich die wieder rein?
In den anderen Tabellenblättern ist sie noch enthalten.
Danke für Eure Hilfe
16.06.2009 15:36:17
Thread-ID: 1081936
9 Beiträge
Höhe der Spaltenbeschriftungen ändern
Tobias

Servus Leutz,
wir haben ein Problem.
Irgendjemand hat irgendwie die Höhe der Spaltenbeschriftungen (A B C D E....) verringert.... allerdings finde ich niergends einen Wert um diese wieder zu erhähen. Bzw wenn ich mit der Maus auf die Ränder fahre kann ich an keiner Ecke oder Kante die H...
17.08.2009 09:09:30
Thread-ID: 1096338
5 Beiträge
Bilder per Makro in Excel einfügen
stefanseevetal

Hallo zusammen!
Ich habe ein Problem, das ich mir nicht erklären kann. Ich füge nach einer Auswahl über den untenstehenden Code ein Bild im Tabellenblatt "Deckblatt" ein. Es soll gemäß dem Code oben links eingefügt werden. Leider funktioniert dies bei einigen Computern nicht und das Bild wi...
27.10.2009 19:27:47
Thread-ID: 1112579
4 Beiträge
Bild in Zellverbund einfügen
Markus

Hallo,
füge ich ein Bild (Einfügen Graphik) in einen Zellverbund (verbunde Zellen von A3 bis R13 ein,
so wird das Bild zwar eingefügt ....
aber die Grösse passt sich nicht dem Zellverbund an (Bild meistens zu gross);
es wird zudem nicht eingemittet (der Zellverbund wurde vorher...
29.10.2009 16:19:45
Thread-ID: 1113103
4 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
8
2
2
3
8
4
3
3
1
4
10
2
2
3
3
2
1
5
2
6
5
6
13