KHTMFile πŸ’Ύ
1.27K subscribers
1.18K photos
350 videos
388 files
468 links
Subscribe PSD AI CDR
Download Telegram
Link LinkβœοΈβœοΈπŸ’Ύ
❀1
αž‘αŸ†αž“αžΆαž€αŸ‹αž‘αŸ†αž“αž„αž˜αž€αž”αžΆαž“αž›αžΏαž“αž›αŸ’αž’αžαŸ‚αž˜αŸ’αžαž„
πŸ‘1
Photoshop layers icon missing
This media is not supported in your browser
VIEW IN TELEGRAM
Click on the menu dropdown (top right) and select Panel Options

Change Thumbnail Size from None to your desired size.
❀1
 Option Explicit

Sub Macro1()

'Recoreded 12.12.2024
Dim s1 As Shape
Set s1 = ActiveLayer.CreateRectangle(0.77698, 1.305118, 4.510319, 3.205118)

End Sub
 Option Explicit

Sub Macro1()
ActiveDocument.Unit = cdrMillimeter 'αžŸαž˜αŸ’αžšαžΆαž”αŸ‹αž‚αž·αžαžαŸ’αž“αžΆαž mm

Dim s1 As Shape


Set s1 = ActiveLayer.CreateRectangle(0, 0, 10, 1)

End Sub
πŸ‘1
 Option Explicit

Sub Macro1()
ActiveDocument.Unit = cdrMillimeter 'Somrab Kit Cnat mm

Dim s1 As Shape
Dim W, H As Double

W = 10
H = 10



Set s1 = ActiveLayer.CreateRectangle(0, 0, W, H)

End Sub
 Option Explicit

Sub Macro1()
ActiveDocument.Unit = cdrMillimeter 'Somrab Kit Cnat mm

Dim s1 As Shape
Dim W, H, X, Y As Double

W = 10
H = 10
X = 0
Y = 1
Set s1 = ActiveLayer.CreateRectangle(X, Y, W + X, H + Y)

End Sub
πŸ‘1