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

• #8215 Delila_1 veterán Fboy #8214

  Új Válasz 2010-09-21 15:16:46 #8215

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Fboy #8214 üzenetére

  Kicsit kibővítve az előző:

  [M](C)Sub Nagysag()
  Dim a As Integer
  Dim nev As String
  
  For a = 2 To 13
  nev = "Oval " & a
  ActiveSheet.Shapes(nev).Select
  With Selection
  .ShapeRange.Height = Cells(a, 2) / 50
  .ShapeRange.Width = Cells(a, 2) / 50
  .Characters.Text = Cells(a, 1) & Chr(10) & Cells(a, 2) & " MFt"
  .HorizontalAlignment = xlCenter
  .VerticalAlignment = xlCenter
  .ReadingOrder = xlContext
  .Orientation = xlHorizontal
  .Characters.Font.Size = 6
  End With
  Next
  End Sub(/C)[/M]

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