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

Koordianten einer Zelle

Forumthread: 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
Anzeige

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

Anzeige
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)

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