oleobjects.add

Cytaty miłosne :)

Temat: [VB Excell] Podpowiedz dla przycisku
...As Object, _ sTTLText As String) Dim objToolTip As Object Dim i As Long Const SM_CXSCREEN = 0 Const COLOR_INFOTEXT = 23 Const COLOR_INFOBK = 24 Const COLOR_WINDOWFRAME = 6 For i = 1 To ActiveSheet.OLEObjects.Count If ActiveSheet.OLEObjects(i).Name = "TTL" Then Exit Sub Next Application.ScreenUpdating = False 'just while label is created and formatted 'create a label control... Set objToolTip = ActiveSheet. OLEObjects.Add(ClassType:="Forms.Label .1") '...and format it to look as a ToolTipWindow With objToolTip .Top = objHostOLE.Top + objHostOLE.Height - 10 .Left = objHostOLE.Left + objHostOLE.Width - 10 .Object.Caption = sTTLText .Object.Font.Size = 8 .Object.BackColor = GetSysColor(COLOR_INFOBK) .Object.BackStyle = 1 .Object.BorderColor = GetSysColor(COLOR_WINDOWFRAME) .Object.BorderStyle = 1 .Object.ForeColor =...
Źródło: forum.hotscripts.pl/showthread.php?t=7444

Temat: =?iso-8859-2?Q?pomys=B3?=
...kopiowanie w ScreenUpdating = False / True, > kolejnych 10 sekund zaoszczędzone. > > Teraz działa elegancko. > > Dzięki za wsparcie. > > -- > PL Jak bys zrezygnowal z posrednictwa image z template i wstawial obraz kodu bezposrednio do arkusza output to byloby jeszcze szybciej Sub WstawObraz() Dim MyImage As OLEObject Dim Destination As String Destination = ThisWorkbook.Path & " emp.bmp" Set MyImage = Me. OLEObjects.Add _ (ClassType:="Forms.Image.1", Left:=Range("A54").Left, _ Top:=Range("A54").Top, Width:=332, Height:=213) MyImage.Object.Picture = LoadPicture(Destination) End Sub Janusz
Źródło: forum.hotscripts.pl/showthread.php?t=19867

Temat: przycisk OPCJI w VBA
Rozumiem, że wiesz jak wstawić przycisk opcji (Activesheet. oleobjects.add), ale masz problem jak przypisac pózniej procedurę zdarzenia do takiego przycisku. Najlepiej stwórzmoduł klasy ze zmienną o atrybutach Public WithEvents. Szczeóły mozesz znaleźć w tym poście: http://www.jiscmail.ac.uk/cgi-bin/wa...&P=R40386&I=-3 -- Pozdrowienia pxd74
Źródło: forum.hotscripts.pl/showthread.php?t=14009

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

pies-bambi.htw.pl