sstent/LogSeqDB
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

first commit

Browse Source
This commit is contained in:
sstent
2025-12-11 06:26:12 -08:00
commit 4662fe2d3b
2327 changed files with 114173 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
logseq/bak/pages/Scripts/powerpoint VBA - copy comments/2025-08-02T12_36_01.766Z.android.md Normal file
View File

@@ -0,0 +1,40 @@
---
title: powerpoint VBA - copy comments
updated: 2022-06-14 13:38:24Z
created: 2022-06-14 13:37:55Z
latitude: 40.75891113
longitude: -73.97901917
altitude: 0.0000
---
```vb
Sub CopyComments()
Dim lFromSlide As Long
Dim lToSlide As Long
lFromSlide = InputBox("Copy comments from slide:", "SLIDE")
lToSlide = InputBox("Copy comments to slide:", "SLIDE")
Dim oFromSlide As Slide
Dim oToSlide As Slide
Set oFromSlide = ActivePresentation.Slides(lFromSlide)
Set oToSlide = ActivePresentation.Slides(lToSlide)
Dim oSource As Comment
Dim oTarget As Comment
For Each oSource In oFromSlide.Comments
Set oTarget = _
ActivePresentation.Slides(lToSlide).Comments.Add( _
oSource.Left, _
oSource.Top, _
oSource.Author, _
oSource.AuthorInitials, _
oSource.Text)
Next oSource
End Sub
```

40
logseq/bak/pages/Scripts/powerpoint VBA - copy comments/2025-08-02T12_38_58.671Z.android.md Normal file
View File

@@ -0,0 +1,40 @@
---
title: powerpoint VBA - copy comments
updated: 2022-06-14 13:38:24Z
created: 2022-06-14 13:37:55Z
latitude: 40.75891113
longitude: -73.97901917
altitude: 0.0000
---
```vb
Sub CopyComments()
Dim lFromSlide As Long
Dim lToSlide As Long
lFromSlide = InputBox("Copy comments from slide:", "SLIDE")
lToSlide = InputBox("Copy comments to slide:", "SLIDE")
Dim oFromSlide As Slide
Dim oToSlide As Slide
Set oFromSlide = ActivePresentation.Slides(lFromSlide)
Set oToSlide = ActivePresentation.Slides(lToSlide)
Dim oSource As Comment
Dim oTarget As Comment
For Each oSource In oFromSlide.Comments
Set oTarget = _
ActivePresentation.Slides(lToSlide).Comments.Add( _
oSource.Left, _
oSource.Top, _
oSource.Author, _
oSource.AuthorInitials, _
oSource.Text)
Next oSource
End Sub
```

40
logseq/bak/pages/Scripts/powerpoint VBA - copy comments/2025-08-02T12_41_20.923Z.android.md Normal file
View File

@@ -0,0 +1,40 @@
---
title: powerpoint VBA - copy comments
updated: 2022-06-14 13:38:24Z
created: 2022-06-14 13:37:55Z
latitude: 40.75891113
longitude: -73.97901917
altitude: 0.0000
---
```vb
Sub CopyComments()
Dim lFromSlide As Long
Dim lToSlide As Long
lFromSlide = InputBox("Copy comments from slide:", "SLIDE")
lToSlide = InputBox("Copy comments to slide:", "SLIDE")
Dim oFromSlide As Slide
Dim oToSlide As Slide
Set oFromSlide = ActivePresentation.Slides(lFromSlide)
Set oToSlide = ActivePresentation.Slides(lToSlide)
Dim oSource As Comment
Dim oTarget As Comment
For Each oSource In oFromSlide.Comments
Set oTarget = _
ActivePresentation.Slides(lToSlide).Comments.Add( _
oSource.Left, _
oSource.Top, _
oSource.Author, _
oSource.AuthorInitials, _
oSource.Text)
Next oSource
End Sub
```

40
logseq/bak/pages/Scripts/powerpoint VBA - copy comments/2025-08-03T03_32_39.169Z.android.md Normal file
View File

@@ -0,0 +1,40 @@
---
title: powerpoint VBA - copy comments
updated: 2022-06-14 13:38:24Z
created: 2022-06-14 13:37:55Z
latitude: 40.75891113
longitude: -73.97901917
altitude: 0.0000
---
```vb
Sub CopyComments()
Dim lFromSlide As Long
Dim lToSlide As Long
lFromSlide = InputBox("Copy comments from slide:", "SLIDE")
lToSlide = InputBox("Copy comments to slide:", "SLIDE")
Dim oFromSlide As Slide
Dim oToSlide As Slide
Set oFromSlide = ActivePresentation.Slides(lFromSlide)
Set oToSlide = ActivePresentation.Slides(lToSlide)
Dim oSource As Comment
Dim oTarget As Comment
For Each oSource In oFromSlide.Comments
Set oTarget = _
ActivePresentation.Slides(lToSlide).Comments.Add( _
oSource.Left, _
oSource.Top, _
oSource.Author, _
oSource.AuthorInitials, _
oSource.Text)
Next oSource
End Sub
```

40
logseq/bak/pages/Scripts/powerpoint VBA - copy comments/2025-08-03T03_53_36.336Z.android.md Normal file
View File

@@ -0,0 +1,40 @@
---
title: powerpoint VBA - copy comments
updated: 2022-06-14 13:38:24Z
created: 2022-06-14 13:37:55Z
latitude: 40.75891113
longitude: -73.97901917
altitude: 0.0000
---
```vb
Sub CopyComments()
Dim lFromSlide As Long
Dim lToSlide As Long
lFromSlide = InputBox("Copy comments from slide:", "SLIDE")
lToSlide = InputBox("Copy comments to slide:", "SLIDE")
Dim oFromSlide As Slide
Dim oToSlide As Slide
Set oFromSlide = ActivePresentation.Slides(lFromSlide)
Set oToSlide = ActivePresentation.Slides(lToSlide)
Dim oSource As Comment
Dim oTarget As Comment
For Each oSource In oFromSlide.Comments
Set oTarget = _
ActivePresentation.Slides(lToSlide).Comments.Add( _
oSource.Left, _
oSource.Top, _
oSource.Author, _
oSource.AuthorInitials, _
oSource.Text)
Next oSource
End Sub
```

40
logseq/bak/pages/Scripts/powerpoint VBA - copy comments/2025-08-12T17_03_40.472Z.android.md Normal file
View File

@@ -0,0 +1,40 @@
---
title: powerpoint VBA - copy comments
updated: 2022-06-14 13:38:24Z
created: 2022-06-14 13:37:55Z
latitude: 40.75891113
longitude: -73.97901917
altitude: 0.0000
---
```vb
Sub CopyComments()
Dim lFromSlide As Long
Dim lToSlide As Long
lFromSlide = InputBox("Copy comments from slide:", "SLIDE")
lToSlide = InputBox("Copy comments to slide:", "SLIDE")
Dim oFromSlide As Slide
Dim oToSlide As Slide
Set oFromSlide = ActivePresentation.Slides(lFromSlide)
Set oToSlide = ActivePresentation.Slides(lToSlide)
Dim oSource As Comment
Dim oTarget As Comment
For Each oSource In oFromSlide.Comments
Set oTarget = _
ActivePresentation.Slides(lToSlide).Comments.Add( _
oSource.Left, _
oSource.Top, _
oSource.Author, _
oSource.AuthorInitials, _
oSource.Text)
Next oSource
End Sub
```