V podstatě nějaký plovoucí prvek který to umí. Po kliku do vybrané oblasti se zobrazí prvek s vyčtenou hodnotou a při opuštění zase zmizí. Pro Excel2003citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Shape_vložení textu
Viděl jsem v kódu OLE a nějak se mi zdálo, že je to spojené s ActiveX prvky. Přitom tam jsou ovl.prvky. Takže chyba na mé straně.citovat
Taky zajímavé.citovat
MS Excel
Téma: Shape_vložení textu 
Zaslal/a Marekh 15.11.2024 15:30
Zdravím, mám něco jako ...
.
.
.
If shape Is Nothing Then
Set shape = Me.Shapes.AddShape(msoShapeRectangle,
50, 50, 200, 50)
shape.Name = "Popisek_1"
V podstatě nějaký plovoucí prvek který to umí. Po kliku do vybrané oblasti zobrazí prvek s vyčtenou hodnotou a při opuštění zase zmizí.
End if
.
.
.
nedaří se mi dostat hodnotu nějaké buňky např. A1 do Rectangle.
Lze to vůbec ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim shape As Object
If Not Intersect(Range("A1"), Target) Is Nothing Then
On Error Resume Next
Set shape = Shapes("Popisek_1")
If Err.Number <> 0 Then
Set shape = Shapes.AddShape(msoShapeRectangle, 50, 50, 200, 50)
shape.Name = "Popisek_1"
End If
On Error GoTo 0
shape.OLEFormat.Object.Text = Range("A1")
shape.Visible = True
Set shape = Nothing
Else
On Error Resume Next
Shapes("Popisek_1").Visible = False
On Error GoTo 0
End If
End Sub
Dim shape As Object
If Not Intersect(Range("A1"), Target) Is Nothing Then
On Error Resume Next
Set shape = Shapes("Popisek_1")
If Err.Number <> 0 Then
Set shape = Shapes.AddShape(msoShapeRectangle, 50, 50, 200, 50)
shape.Name = "Popisek_1"
End If
On Error GoTo 0
shape.OLEFormat.Object.Text = Range("A1")
shape.Visible = True
Set shape = Nothing
Else
On Error Resume Next
Shapes("Popisek_1").Visible = False
On Error GoTo 0
End If
End Sub
Příloha: 
57002_obdlznik.xls (25kB, staženo 3x)
citovat57002_obdlznik.xls (25kB, staženo 3x)Použil som rovnaký objekt ako Vy. Aký iný obdĺžnik má ešte E2003?
Či to ide presne takto aj na iné objekty sa paušálne asi povedať nedá. Uveďte príklad, o aký objekt máte záujem a pozriem v štruktúre vlastností daného objektu.citovat
Či to ide presne takto aj na iné objekty sa paušálne asi povedať nedá. Uveďte príklad, o aký objekt máte záujem a pozriem v štruktúre vlastností daného objektu.citovat
Funguje i tohle (bez "omáčky"):
Sub Makro()
ActiveSheet.Shapes("Bunka").Select
Selection.Formula = "=" & ActiveCell.Address
ActiveCell.Select
End Sub
shape : nejlépe nějaký obrázek, ale funguje i jiný. Dobrá začátek je buňku "vyfotit" a vložit do listu.
Zobrazí se to, co je ve vybrané oblasti včetně formátování a objektů nad oblastí (graf, obrázek, fotka, ...)
Ve starých verzích se nedoporučovalo překrývání = oblast by neměla zahrnovat místo, kde je obrázek, excel nezvládal rekurzi při zobrazování ...citovat
Sub Makro()
ActiveSheet.Shapes("Bunka").Select
Selection.Formula = "=" & ActiveCell.Address
ActiveCell.Select
End Sub
shape : nejlépe nějaký obrázek, ale funguje i jiný. Dobrá začátek je buňku "vyfotit" a vložit do listu.
Zobrazí se to, co je ve vybrané oblasti včetně formátování a objektů nad oblastí (graf, obrázek, fotka, ...)
Ve starých verzích se nedoporučovalo překrývání = oblast by neměla zahrnovat místo, kde je obrázek, excel nezvládal rekurzi při zobrazování ...citovat
elninoslov napsal/a:
Použil som rovnaký objekt ako Vy. Aký iný obdĺžnik má ešte E2003?
Či to ide presne takto aj na iné objekty sa paušálne asi povedať nedá. Uveďte príklad, o aký objekt máte záujem a pozriem v štruktúre vlastností daného objektu.
Viděl jsem v kódu OLE a nějak se mi zdálo, že je to spojené s ActiveX prvky. Přitom tam jsou ovl.prvky. Takže chyba na mé straně.citovat
lubo napsal/a:
Funguje i tohle (bez "omáčky"):
Sub Makro()
ActiveSheet.Shapes("Bunka").Select
Selection.Formula = "=" & ActiveCell.Address
ActiveCell.Select
End Sub
shape : nejlépe nějaký obrázek, ale funguje i jiný. Dobrá začátek je buňku "vyfotit" a vložit do listu.
Zobrazí se to, co je ve vybrané oblasti včetně formátování a objektů nad oblastí (graf, obrázek, fotka, ...)
Ve starých verzích se nedoporučovalo překrývání = oblast by neměla zahrnovat místo, kde je obrázek, excel nezvládal rekurzi při zobrazování ...
Taky zajímavé.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články