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

• shev7 veterán

  #1214

  #1213 Naras

  2010-07-05 14:58:55

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  shev7

  veterán

  #1213 Naras

  #1213 Naras

  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