Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Koordianten einer Zelle

Koordianten einer Zelle
04.08.2003 09:26:33
Marco
Hallo,
ich würde gerne ein Textfeld über einem bestimmten Zellbereich
in Excel aufspannen. Da der Zellebreich nicht immer der gleiche
ist, würde ich gerne vorher die Koordinaten der betreffenden Zellen
ermitteln. Mit welcher Methode macht man das ?
Danke Gruß
marco

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

Betreff
Datum
Anwender
Anzeige
AW: Koordianten einer Zelle
04.08.2003 09:57:38
MRR
Hi Marco,
z.B. so:

Sub Setze_Textfeld()
Dim dblHeight As Double
Dim dblWidth As Double
dblHeight = Selection.Rows.Height
dblWidth = Selection.Columns.Width
ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
Selection.Offset(0, 0).Top, Selection.Offset(0, 0).Left, dblWidth, dblHeight).Select
End Sub

HTH

AW: Koordianten einer Zelle
04.08.2003 10:04:40
MRR
Sorry - AddTextbox statt AddShape

AW: Koordianten einer Zelle
04.08.2003 09:58:53
Dan
Hallo Marco,
versuch es mit diesem code. Bei mir hats funktioniert. Mfg. Dan.

Private Sub add_ole()
Dim rng As Range, oleob As OLEObject
Dim dwidth As Double, dheight As Double
Dim dleft As Double, dtop As Double
Set rng = ActiveCell
dleft = rng.Left
dtop = rng.Top
dwidth = ActiveSheet.Columns(rng.Column).width
dheight = ActiveSheet.Rows(rng.Row).height
Set oleob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
DisplayAsIcon:=False, _
Left:=dleft, _
Top:=dtop, _
width:=dwidth, _
height:=dheight)
With oleob
End With
End Sub


Anzeige
AW: Koordianten einer Zelle
04.08.2003 10:00:53
Nike
Hi,
hier ein Ansatz:

Sub entfernungen()
MsgBox "B2 ist " & Range("B2").Top & " Pixel von oben und " & Range("B2").Left & " Pixel von links enfernt."
End Sub

Bye
Nike

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige