Keresés

Új hozzászólás Aktív témák

  • martonx
    veterán

    Hi!

    Nagyon szépen köszönöm a választ, csak egy aprócska problémába ütköztem, mivel Office 2007 - ben nincs klasszikus menü ugye, és a referenciákat nem találtam.

    Másik: Be tudnád illeszteni a megoldást egy konkrét példába? (ami önmagában működőképes).

    Előre is köszi!

    A fenti példa amúgy sem működik Office 2007-tel, úgyhogy nyugodtan felejtsd el, vagy inkább javítsd ki úgy, hogy az működjön.

    Pont pár hete tapasztaltam, hogy a nagyvállalati környezetünkben, az egy szál felhasználó gépén, akinek Office 2007-je van, nem fut a fasza kis vágólapos makróm.

    shev7 segítségébe ezért is nem akartam beleokoskodni, mivel a megoldása tökéletes, csak sajnos mára egyre ritkábban használható.

    Mivel mint mondtam nálunk csak 1 gépen van NEM Office 2003, ezért nem is foglalkoztam a problémával.

    Mondjuk a probléma biztosan bagatell, és te is rá tudsz jönni, hogy Office 2007-ben mit kell változtatni a kapott példához képest.

    shev7 érthetően leírta, hogy hol kell hozzáadnod a plusz referenciát, ez Office 2007-ben is pont ugyanott található, mint az összes eddigi, sőt az Office 2010-es verzióban is.

    Ha nagyon nem tudsz rájönni, itthon Office 2010-em van, ránézhetek a problémára (hacsak majd ki nem derül, hogy a 64 bites Office 2010-es megoldásom nem lesz jó a 32 bites Office 2007-edbe...)

  • shev7
    veterán

    Hi!

    Nagyon szépen köszönöm a választ, csak egy aprócska problémába ütköztem, mivel Office 2007 - ben nincs klasszikus menü ugye, és a referenciákat nem találtam.

    Másik: Be tudnád illeszteni a megoldást egy konkrét példába? (ami önmagában működőképes).

    Előre is köszi!

    office 2007-em nincs a meloban. De ugye a referenciat nem az excelben kell hozzaadni, hanem a VBA editorban, az meg emlekeim szerint 2007 alatt is a "klasszikus menu"-t hasznalja...

    mit ertesz az alatt, hogy onmagaban mukodokepes? mi nem mukodokepes azon, hogy egy valtozoban (amivel ugye azt csinalsz utana amit akarsz) bekerul a vagolap tartalma? azert ezt adoptalni a sajat kododba mar nem kene hogy problemat jelentsen...

    Dim DataObj As New MSForms.DataObject
    DataObj.GetFromClipboard
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= DataObj.GetText, TextToDisplay:= "Link"

  • shev7
    veterán

    Hi!

    Excel - ben szeretném beilleszteni egy adott cellába a vágólap tartalmát egy macro parancssor részeként, úgy, hogy a mező felirata Link lesz. Jelenleg eddig jutottam, de nem tudom megoldani, hogy a vágólap tartalma bekerüljön a link felirat alá:

    Sub Insert_Description()
    '
    ' Insert_Description Macro
    ' Insert description from Clipboard
    '

    '
    ActiveSheet.Paste
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
    "Most ezt teszi be a link felirat alá, ide kéne a vágólap tartalma" _
    , TextToDisplay:= _
    "Link"
    ActiveCell.Offset(0, 1).Range("A1").Select
    End Sub

    Előre is köszi a helpet!

    a referenciaknal (tools/references) hozza kell adnod: Microsoft Forms 2.0 Object Library'

    Ha nincs a listaban akkor tallozd be ezt: FM20.dll

    Dim DataObj As New MSForms.DataObject
    Dim S As String
    DataObj.GetFromClipboard
    S = DataObj.GetText

Új hozzászólás Aktív témák