Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1008to1012
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
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kamera mit VBA ausführen???

Kamera mit VBA ausführen?
08.09.2008 08:47:00
Micha
Hallo, ich möchte gerne die Kamerafunktion per Makro ausführen!
Und zwar genau so, als wenn ich auf das Kamerasymbol in der Symbolleiste klicke.
Bei dem unten stehenden Code wird die Copy "halbtransparent?" an "gleicher Stelle?" eingefügt.
Eingefügt soll die Copy dort, wo ich als nächstes hinklicke, und nicht transparent.
Eben genau so als wenn ich das Kamerasymbol in der Symbolleiste benutze.

Sub Camera()
Selection.Copy
ActiveSheet.Pictures.Paste Link:=True
End Sub


Danke und Gruß
Micha

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kamera mit VBA ausführen?
08.09.2008 09:23:36
eres
Hallo Micha, hast Du Ramses/Rainer's Tipp (ist gerade mal ein paar Tage her, s. unten) mal probiert :
"Hallo
so geht es

Sub Camera()
Dim tarRng As Range
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
'On Error Resume Next
Set tarRng = Application.InputBox("Wo soll das Bild eingefügt werden ?", "Zielzelle  _
markieren", Type:=8)
If tarRng Is Nothing Then
MsgBox "Abbruch. Bild wird nicht eingefügt", vbOKOnly, "Fehler"
Application.CutCopyMode = False
Exit Sub
End If
tarRng.Select
ActiveSheet.Paste
End Sub


Gruss Rainer"

Anzeige
AW: Kamera mit VBA ausführen?
08.09.2008 09:49:00
Micha
Hallo Rainer.
Danke für Deine Hilfe.
Da muss noch ein kleiner Fehler im Code sein, habe leider keine Ahnung von VBA (Code wird stellenweise "ROT" angezeigt)
Grüße
Micha
AW: Kamera mit VBA ausführen?
08.09.2008 09:53:21
eres
Die Zeilentrennung geht wohl so nicht. Probier mal folgende Zeile:_
Set tarRng = Application.InputBox("Wo soll das Bild eingefügt werden ?", "Zielzelle markieren", Type:=8)
statt
Set tarRng = Application.InputBox("Wo soll das Bild eingefügt werden ?", "Zielzelle _
markieren", Type:=8)
Gruß
erwin
AW: Kamera mit VBA ausführen?
08.09.2008 09:59:00
Micha
Hallo und Danke,
klappt schon besser, jedoch wird mir die Copy jetzt wieder "halbtransparent ?" eingefügt.
Gruß
Micha
Anzeige
AW: Kamera mit VBA ausführen?
08.09.2008 10:26:16
Matthias
Hallo
Hab mal ein bisschen probiert.
Probiers mal so:

Sub Camera()
Dim tarRng As Range
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
'On Error Resume Next
Set tarRng = Application.InputBox("Wo soll das Bild eingefügt werden ?", "Zielzelle markieren",  _
Type:=8)
If tarRng Is Nothing Then
MsgBox "Abbruch. Bild wird nicht eingefügt", vbOKOnly, "Fehler"
Application.CutCopyMode = False
Exit Sub
End If
tarRng.Select
ActiveSheet.Paste
    With Selection
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 13
.ShapeRange.Fill.Transparency = 0#
End With
Range(tarRng.AddressLocal).Select

End Sub


.ShapeRange.Fill.ForeColor.SchemeColor = 13
kannst Du auch weglassen, dann bleibt es eben weiß.
Gruß Matthias

Anzeige
AW: Kamera mit VBA ausführen?
08.09.2008 11:08:42
Micha
Hallo Matthias,
ich weiß deine Bemühungen zu schätzen, vielen Dank hierfür :-)
Jedoch klappt das leider nicht so wie die Standart Funktion der Excel Kamera.
Wenn. ich z.B. Änderungen in der Ursprungszelle vornehme, muss sich auch der Wert in der mit der Kamera eingefügten Graphik ändern.
Mit der Kameraicon klappt das alles, doch wie kann ich diese mit VBA aktivieren?
Gruß
Micha

300 Forumthreads zu ähnlichen Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Anzeige
Komplizierte Wenn-Formel für kicker-Spiel
Frank

Hallo miteinander,
ich möchte eine Excel-Datei für das offizielle Fussball-kicker-Managerspiel erstellen, leider scheitere ich total an (vermutlich) den WENN-Formeln ..... vielleicht ist das aber auch gar nicht möglich, was ich erreichen möchte :-(
In der Tabelle sollte man in Spalte A...
08.08.2008 07:28:06
Thread-ID: 1000146
4 Beiträge
Wenn-Formel und Drop-down Menü
Tommy

Hallo,
ich habe ein Problem.
Ich möchte immer dann, wenn ich einen Wert im Drop-down Menü auswähle, dass eine bestimmte Zelle gelöscht wird. Ein vereinfachtes Beispiel seht Ihr im Anhang.
https://www.herber.de/bbs/user/54449.xls
Danke & Gruss
Tommy
08.08.2008 14:41:00
Thread-ID: 1000304
3 Beiträge
Anzeige
Automatische Umwandlung Punkt in Komma
Harry

Liebe Excel-Gemeinde,
ich möchte aus einer csv-Datei (die eine konstante Spalten- aber unterschiedliche Zeilenzahl hat) Text in Zahlen wandeln (also z. B. 1.234 in 1,234).
Dazu gibts im Forum viele Vorschläge. Ich habe dazu die Formel =WERT(WECHSELN(A1;".";",")) gefunden.
Diese Fo...
08.08.2008 21:00:38
Thread-ID: 1000413
5 Beiträge
Mit formel Anfang und ende bestimmen
Stephan

Hallo zusammen,
Wie kan ich mit einer formel den anfang und das ende Festlegen?
Ich habe eine Tabelle mit dem Datum vom 1.8.08-31.8.08, und möchte nur eine woche anzeigen, das heisst in einer zelle "A1" das anfangdatum (4.8.2008) in der "A2" das enddatum (10.8.2008) und "A3" die berec...
09.08.2008 09:19:13
Thread-ID: 1000462
14 Beiträge
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
CommondButton Namen zuweisen
Frank

Hallo Ihr lieben Excelfreunde!!!
Kurze Frage: in einer Tabelle befinden sich einige Steuerelemente - CommandButton's", diesen würde ich gern definierte Namen zuweisen. Beispiel: CommandButton1 soll mit dem Inhalt der Zelle AP1 beschriftet sein, CommandButton 2 mit dem Inhalt der Zelle AP2 u...
11.08.2008 13:10:00
Thread-ID: 1000824
4 Beiträge
Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge

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
3
4
3
2
5
4
13
7
3
1
4
12
4
1
9
2
2
6
3
5
3
2
3
3
7