Açıklama kutusu boyutu

[niloo]

Merhaba, çalışma sayfamda yüzlerce açıklama kutusu bulunmakta, bütün açıklama kutucuklarını tek seferde aynı boyuta getirmek istiyorum. bunun için ne yapabilirim, kod mu yazmak gerek? yardımlarınızı rica ediyorum

 

[hoguz2]

merhaba ,

kod yazmaya gerek yok cunku internette yazilmisi var

bir module yapistirip calistirin ..
iyi calismalar..


Sub ResizeCommentsVBA()

Dim myComment As Comment
Dim resizeType As Integer
Dim resizeScale As Integer
Dim newWidth As Integer
Dim newHeight As Integer

resizeType = 2
resizeScale = 2

'----------------------------------------------------
newWidth = 100 'istenilen olculeri buraya yazin
newHeight = 100 'istenilen olculeri buraya yazin
'----------------------------------------------------

For Each myComment In ActiveSheet.Comments
With myComment
If resizeType = 1 Then
.Shape.ScaleWidth resizeScale, msoFalse, msoScaleFromTopLeft
.Shape.ScaleHeight resizeScale, msoFalse, msoScaleFromTopLeft
End If
If resizeType = 2 Then
.Shape.Width = newWidth
.Shape.Height = newHeight
End If

End With
Next

End Sub

 

[niloo]

çok teşekkür ederim, uzun zamandır arıyordum. çok iyi geldi. peki ben boyutları 5cm, 7cm yapmak istiyorum, değeri kaç girmeliyim?

merhaba ,

kod yazmaya gerek yok cunku internette yazilmisi var

bir module yapistirip calistirin ..
iyi calismalar..


Sub ResizeCommentsVBA()

Dim myComment As Comment
Dim resizeType As Integer
Dim resizeScale As Integer
Dim newWidth As Integer
Dim newHeight As Integer

resizeType = 2
resizeScale = 2

'----------------------------------------------------
newWidth = 100 'istenilen olculeri buraya yazin
newHeight = 100 'istenilen olculeri buraya yazin
'----------------------------------------------------

For Each myComment In ActiveSheet.Comments
With myComment
If resizeType = 1 Then
.Shape.ScaleWidth resizeScale, msoFalse, msoScaleFromTopLeft
.Shape.ScaleHeight resizeScale, msoFalse, msoScaleFromTopLeft
End If
If resizeType = 2 Then
.Shape.Width = newWidth
.Shape.Height = newHeight
End If

End With
Next

End Sub

 

[hoguz2]

Merhaba

Bu 100*100 ölçüler pixcel galiba telefondan yazıyorum o yüzden bakamayacağım 1 pixcel 12,8 mi ne öyle birşeydi. Deneyip bulabilirsiniz .