تعليقات على فورم بحث وتعديل واضافة بيانات

Const MyWidth As Single = 75   '  عرض الكنترول
Const MyHight As Single = 18   '  طول الكنترول

Private Sub kh_AddControlsRng()
Dim X As Range
Dim Lf As Double, Tp As Double
Dim ContColmn As Integer, r As Integer, c As Integer

Set X = Range("A1:C7")
ContColmn = X.Columns.Count
For r = 1 To X.Rows.Count
   For c = 1 To ContColmn
       Lf = (ContColmn - c) * MyWidth
       With Me.Frame1.Controls.Add("Forms.Label.1")
           .BorderStyle = 1
           .Move Lf, Tp, MyWidth, MyHight
           Call kh_Format(.Name, X.Cells(r, c))
       End With
   Next
   Tp = Tp + MyHight
   c = 0
Next
Set X = Nothing
End Sub

Private Sub kh_Format(iName As String, MyCel As Range)
With Me.Controls(iName)
   .BackColor = MyCel.Interior.Color
   .Caption = MyCel.Value
   .TextAlign = 2
   With .Font
       .Name = MyCel.Font.Name
       .Bold = True
       .Size = MyCel.Font.Size
   End With
End With
End Sub


Private Sub PictureChartObject()
Set CurrentChart = ورقة1.ChartObjects("مخطط 2").Chart
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export FileName:=Fname, FilterName:="GIF"
Image1.Picture = LoadPicture(Fname)
'---------------------------------
End Sub

Private Sub Frame1_Click()

End Sub

Private Sub Image1_Click()

End Sub

Private Sub UserForm_Initialize()
Me.Frame1.SpecialEffect = 0
Me.Image1.SpecialEffect = 0

PictureChartObject
kh_AddControlsRng
End Sub

Const MyWidth As Single = 75   '  عرض الكنترول
Const MyHight As Single = 18   '  طول الكنترول

Private Sub kh_AddControlsRng()
Dim X As Range
Dim Lf As Double, Tp As Double
Dim ContColmn As Integer, r As Integer, c As Integer

Set X = Range("A1:C7")
ContColmn = X.Columns.Count
For r = 1 To X.Rows.Count
   For c = 1 To ContColmn
       Lf = (ContColmn - c) * MyWidth
       With Me.Frame1.Controls.Add("Forms.Label.1")
           .BorderStyle = 1
           .Move Lf, Tp, MyWidth, MyHight
           Call kh_Format(.Name, X.Cells(r, c))
       End With
   Next
   Tp = Tp + MyHight
   c = 0
Next
Set X = Nothing
End Sub

Private Sub kh_Format(iName As String, MyCel As Range)
With Me.Controls(iName)
   .BackColor = MyCel.Interior.Color
   .Caption = MyCel.Value
   .TextAlign = 2
   With .Font
       .Name = MyCel.Font.Name
       .Bold = True
       .Size = MyCel.Font.Size
   End With
End With
End Sub


Private Sub PictureChartObject()
Set CurrentChart = ورقة1.ChartObjects("مخطط 2").Chart
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export FileName:=Fname, FilterName:="GIF"
Image1.Picture = LoadPicture(Fname)
'---------------------------------
End Sub

Private Sub Frame1_Click()

End Sub

Private Sub Image1_Click()

End Sub

Private Sub UserForm_Initialize()
Me.Frame1.SpecialEffect = 0
Me.Image1.SpecialEffect = 0

PictureChartObject
kh_AddControlsRng
End Sub