Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Kommentare nach Rechts verschieben

Forumthread: Alle Kommentare nach Rechts verschieben

Alle Kommentare nach Rechts verschieben
05.08.2021 13:46:42
oraculix
Hallo
Mit dem untenstehenden Macro werden Bilder in die Kommentare eingelesen.
Problem : Die Bilder sollten ca 2cm nach rechts Verschonen werden.
Frage : Gibt es für Kommentare X Y Werte zum einstellen der Position oder kann man das irgendwie per Hand verschieben?
With objComment.Shape
Call .Fill.UserPicture(PictureFile:=FOLDER_PATH & strFilename)
.Width = 256
.Height = 323
.X= 'Gibt es hier eine Möglichkeit?
.Y= 'Gibt es hier eine Möglichkeit?
End With
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Kommentare nach Rechts verschieben
05.08.2021 14:11:06
Nepumuk
Hallo,
das geht nicht.
Gruß
Nepumuk
AW: Alle Kommentare nach Rechts verschieben
05.08.2021 14:13:27
oraculix
Danke das dachte ich mir schon habe nirgendwo was gefunden.
Gruß
Oraculix
Per Hand und einzeln kann ein normaler ...
06.08.2021 03:25:24
Luc:-?
…Kommentar durchaus verschoben wdn, Oraculix,
und Xl merkt sich auch den neuen Standort, wendet ihn aber nicht in der MouseMove-Automatik an, nur beim festen Einblenden. Das müsstest du dann per SelectionChange- oder einem anderen Klick-Ereignis lösen und ggf auch wieder das Ausblenden (ob auch mit Bild, kannst du ja selber ausprobieren). Nehme allerdings nicht an, dass dich das zufriedenstellt.
Morhn, Luc :-?
Anzeige
AW: Per Hand und einzeln kann ein normaler ...
06.08.2021 06:19:29
oraculix
Danke für Deine Mühe!
Ich überlege ob ich nicht statt Kommentare besser ein Bild (Aktiv X Steuerelement) verwenden sollte.
Nur müsste ich den Code dann umschreiben mit Image1
Könntest Du mir den Code so umschreiben das ich ein Image1 verwenden kann statt Kommentare?
Danke
Gruß
Oraculix

Public Sub InsertPictures()
Const FOLDER_PATH As String = "D:\EMDB\HTML\ExcelCovers\"
Dim strFilename As String
Dim objCell As Range
Dim objComment As Comment
For Each objCell In Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
If objCell.Comment Is Nothing Then
Set objComment = objCell.AddComment
Else
Set objComment = objCell.Comment
End If
Call objComment.Text(Text:="", Start:=1)
strFilename = Dir$(FOLDER_PATH & objCell.Text & ".*")
If strFilename  vbNullString Then
With objComment.Shape
Call .Fill.UserPicture(PictureFile:=FOLDER_PATH & strFilename)
.Width = 260
.Height = 323
End With
End If
Next
Set objComment = Nothing
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Zeilennummer automatisch verschieben
oblivion

Hallo, wollte mal wissen ob man die Zeilennummer automatisch erhöhen kann, wenn man eine Formel nach rechts zieht.
Ich habe daten in einer Tabelle untereinader stehen.
In einer 2. Tabelle brauche ich die gleíchen Daten aber waagerecht.
Wenn ich die Formel =Tabelle1!$A1 nach rechts z...
31.08.2008 13:22:00
Thread-ID: 1006181
12 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Zeilen nach oben verschieben
Josef_T

Hallo zusammen,
habe wieder ein Problem, dass ich nicht gelöst bekomme und deshalb Hilfe von Experten
benötige.
Mein Prob, habe ich hier näher beschrieben: https://www.herber.de/bbs/user/63496.xls
Danke
Gruß Josef
28.07.2009 19:13:39
Thread-ID: 1092043
9 Beiträge
Anzeige
zeilen automatisch verschieben
Daniel

Hallo liebe Excel gemeinde,
folgendes Problem habe ich:
Ich möchte gerne in einem tabellenblatt daten von mehreren anderen Tabellenblättern in der gleichen arbeitsmappe durch verschiedene Formeln auswerten. Das ist kein Problem.
Mein Problem ist, wenn ich in einzelnen Arbeitsblät...
18.06.2010 22:04:22
Thread-ID: 1162732
2 Beiträge
ActiveCell + 2 Zeilen nach rechts
Kay

Hallo Excel-Forum,über einen Suchstring springe ich in eine Zelle, z.B. "A4" und möchte nun 2 Zellen nach rechts gehen(C4). Wie kann ich diese Zelle als "ActiveCell" deklarieren?Danke
Kay

06.05.2002 12:59:02
Thread-ID: 118797
2 Beiträge
Zeilen ausblenden und verschieben wenn...
Michael

Hallo,ich habe da ein Problem das glaube ich nicht in Excel zu lösen ist. Ich habe eine Kundendienstliste mit den Zellen Name, Strasse Ort, Plz, Kundendienstgrund, ErledigtIch möchte nun eine Zeile komplett in eine andere Arbeitsmappe ("Archiv")verschieben lassen sobald im hintersten Feld "Erle...
08.05.2002 16:41:22
Thread-ID: 119609
2 Beiträge
Anzeige
Zeilen aus Range löschen, wenn Bedingung erfüllt
Peter

Guten Tag
Mit untenstehendem Code lösche ich gewisse Zeilen, wenn diese in einmem String auf der gleichen Zeile eine bestimmte Bedingung erfüllen.
Das funktioniert so lange, bis die Bedingung auf der zweitletzten Zeile und der letzten Zeile zutrifft. Dann wird die letzte Zeile nicht gel...
04.06.2013 12:06:44
Thread-ID: 1316229
4 Beiträge
VBA Zeilen verschieben wenn Bedingungen erfüllt
Jochen

Hallo zusammen,
ich habe hier ein Problem bei dem ich absolut nicht weiterkomme.
Ich habe eine Projektübersicht (Tabelle1) in Excel. Nun würde ich gerne wenn ein Projekt abgeschlossen ist, dieses komplett in ein Archivtabellenblatt (Tabelle2)verschieben.
In Spalte B habe ich die Pro...
05.07.2013 08:50:01
Thread-ID: 1321225
5 Beiträge
Zeilen(bereich) kopieren wenn Bedingungen erfüllt
Chris

Hallo zusammen,
ich habe leider ein Problem bei der Erstellung eines Makros.
In Tabelle1 befinden sich in der Spalte A bis H ausgefüllte Zelle. Nun soll ein Makro alle Zeilen, die sowohl in Spalte G eine 1 und in Spalte H ein X haben in Tabelle2 kopieren. Dabei soll aber die Spalte B un...
19.02.2014 16:52:23
Thread-ID: 1350404
4 Beiträge
Anzeige
Zeilenwerte von links nach rechts auslesen
links

Hallo Zusammen,
für Eure Hilfe wäre ich total dankbar. Auch in einem Post vor 4 Wochen, konnte das Thema nicht gelöst werden und nirgendwo finde ich einen Lösungsansatz - dabei müssten doch noch mehr Leute vor so einer Aufgabe stehen:
Ich suche eine Formel (kein Makro / VBA), die Zeilen...
29.09.2014 18:20:06
Thread-ID: 1383986
8 Beiträge
VSB - Zeile auslesen, wenn Bedingung erfüllt
loki

Hallo,
leider bin ich nicht sonderlich gut bewandt in Visual Basic, doch glaube ich genau dort die Lösung meines derzeitigen Problems zu finden.
Ausgangssituation:
Ich habe zwei Tabellen.
Tabelle 1 = Quelle
Tabelle 2 = Ziel
In Tabelle 1 stehen jeweils in jeder Zeile in...
24.10.2014 14:33:36
Thread-ID: 1388454
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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